[inseparable changes from match from perl-5.003_96 to perl-5.003_97]

[perl5.git] / lib / ftp.pl

diff --git a/lib/ftp.pl b/lib/ftp.pl
index e87a9b2..9528360 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;
@@ -140,7 +140,7 @@ $real_site = "";
 $ftp_show = 0;
 sub ftp'debug
 {
-       $ftp_show = @_[0];
+       $ftp_show = $_[0];
 #      if( $ftp_show ){
 #              print STDERR "ftp debugging on\n";
 #      }
@@ -148,7 +148,7 @@ sub ftp'debug
 
 sub ftp'set_timeout
 {
-       $timeout = @_[0];
+       $timeout = $_[0];
        $timeout_open = $timeout;
        $timeout_read = 20 * $timeout;
        if( $ftp_show ){
@@ -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" );