X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=087c0f263ed27c2653876c66fe0966da8dbcb928;hb=f6d0b05b25a61cb6d3aa671b7a8f5d4a69817b1c;hp=13833962d3d316d26f997e8861a431d143bda478;hpb=daaad9dda3a184f2b3ecd23891eda101995d036f;p=spider.git diff --git a/perl/Msg.pm b/perl/Msg.pm index 13833962..087c0f26 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -291,7 +291,8 @@ sub disconnect dbg("Buffer empty, just close $call") if $dbg; _close_it($conn); } - } else { + } + else { dbg((ref $conn) . " socket missing on $conn->{call}") if $dbg; _close_it($conn); }