--- Net/FTP.pm.orig	Tue Nov 25 18:33:02 1997
+++ Net/FTP.pm	Wed Nov 26 22:40:02 1997
@@ -198,7 +198,7 @@ sub login
      ($ruser,$pass,$acct) = $rc->lpa()
 	if ($rc);
 
-     $pass = "-" . (getpwuid($>))[0] . "@" 
+     $pass = eval {"-" . (getpwuid($>))[0] . "@"}
         if (!defined $pass && (!defined($ruser) || $ruser =~ /^anonymous/o));
     }
 
@@ -232,7 +232,7 @@ sub authorize
   {
    require Net::Netrc;
 
-   $auth ||= (getpwuid($>))[0];
+   $auth ||= eval { (getpwuid($>))[0] };
 
    my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'}, $auth)
         || Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'});
