adam/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-07-06 01:41:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

need to limit splice

Browse Source 
git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@338 726aef4b-f618-498e-8847-2d620e286838
This commit is contained in:
imaginos
2005-05-18 18:35:54 +00:00
parent 62e8bc9585
commit 7131e23b5b
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/modperl.pm
+9 -9
View File
@@ -144,7 +144,7 @@ sub COREUnLoadMod
if ( ( $MODS[$i]->{ZNC_Username} eq $Username ) && ( $MODS[$i]->{ZNC_Name} eq $Module ) )
{
undef $MODS[$i];
splice( @MODS, $i );
splice( @MODS, $i, 1 );
ZNC::PutModule( "UnLoaded $Module" );
return( CONTINUE() );
}
@@ -176,10 +176,8 @@ sub CORECallSock
{
if ( ( $MODS[$i]->{ZNC_Username} eq $Username ) && ( $MODS[$i]->{ZNC_Name} eq $ModName ) )
{
my @socks = @{$MODS[$i]->{socks}};
######### Sock methods are in the module directly
if ( @socks == 0 )
if ( @{$MODS[$i]->{socks}} == 0 )
{ # ok, try simple manner, overloads in this here class
if ( $MODS[$i]->can( $Func ) )
{
@@ -193,20 +191,22 @@ sub CORECallSock
}
########## they sent us a socket to look at, we'll use it
for( my $a = 0; $a < @socks; $a++ )
for( my $a = 0; $a < @{$MODS[$i]->{socks}}; $a++ )
{
if ( $socks[$a]->{fd} == $fd )
my $obj = ${$MODS[$i]->{socks}}[$a];
if ( $obj->{fd} == $fd )
{
if ( $socks[$a]->can( $Func ) )
if ( $obj->can( $Func ) )
{
my $ret = $socks[$a]->$Func( @args );
my $ret = $obj->$Func( @args );
if ( $Func eq "OnConnectionFrom" )
{ # special case this for now, requires a return value
return( $ret );
}
elsif ( $Func eq "OnSockDestroy" )
{
splice( @{$MODS[$i]->{socks}}, $a );
splice( @{$MODS[$i]->{socks}}, $a, 1 );
}
}
return( CONTINUE() );