some minor cleanups

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index 57a5d45b0fa4ea373ac434a08d9c2b623687febe..f159ee79ed200153d39cf0e9b01631a9aadec35d 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -82,8 +82,8 @@ sub sig_chld
        unless ($^O =~ /^MS/i) {
                $SIG{CHLD} = \&sig_chld;
                $waitedpid = wait;
+               dbg('connect', "caught $waitedpid");
        }
-       dbg('connect', "caught $pid");
 }