perl 5.003_06: pod/perlcall.pod pod/perldata.pod pod/perldebug.pod pod/perlembed...

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

diff --git a/lib/ftp.pl b/lib/ftp.pl
index e87a9b2..bfddcb8 100644 (file)
--- a/lib/ftp.pl
+++ b/lib/ftp.pl
@@ -89,7 +89,7 @@
 #
 
 require 'chat2.pl';
-require 'socket.ph';
+eval "require 'socket.ph'" || eval "require 'sys/socket.ph'" || die "socket.ph missing: $!\n";
 
 
 package ftp;
@@ -245,7 +245,7 @@ sub ftp'login
        local( $remote_user, $remote_password ) = @_;
 
        if( $proxy ){
-               &ftp'send( "USER $remote_user@$site" );
+               &ftp'send( "USER $remote_user\@$site" );
        }
        else {
                &ftp'send( "USER $remote_user" );