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 f366cdb..bfddcb8 100644 (file)
--- a/lib/ftp.pl
+++ b/lib/ftp.pl
@@ -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" );