Avoid $` $& $' in libraries

[p5sagit/p5-mst-13.2.git] / lib / chat2.pl

diff --git a/lib/chat2.pl b/lib/chat2.pl
index 58674e5..8320270 100644 (file)
--- a/lib/chat2.pl
+++ b/lib/chat2.pl
@@ -6,6 +6,8 @@
 
 package chat;
 
+require 'sys/socket.ph';
+
 if( defined( &main'PF_INET ) ){
        $pf_inet = &main'PF_INET;
        $sock_stream = &main'SOCK_STREAM;
@@ -262,7 +264,7 @@ ESQ
                eval $cases; die "$cases:\n$@" if $@;
        }
        $eof = $timeout = 0;
-       do $subname();
+       &$subname();
 }
 
 ## &chat'print([$handle,] @data)