From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Wed, 1 May 1996 02:00:50 +0000 (+0000)
Subject: Escape literal "@" in string
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ad7ff014759aa9fadb78f58b37ef1455a4f660e;p=p5sagit%2Fp5-mst-13.2.git

Escape literal "@" in string
---

diff --git a/lib/ftp.pl b/lib/ftp.pl
index f366cdb..bfddcb8 100644
--- 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" );