X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fchat2.pl;h=8320270175be97f2452dbd5b2ccb39d4e65b2e1a;hb=2724d5068a405436d3f2cd00aeb8f7b460b24fec;hp=58674e5a8b9b00ba5207fcdc04ff3159ffaa1b0d;hpb=a0d0e21ea6ea90a22318550944fe6cb09ae10cda;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/chat2.pl b/lib/chat2.pl
index 58674e5..8320270 100644
--- 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)