The rev from 5.6.0-4 in beta3 to 5.6.0-6 in Beta5 breaks Net::FTP. (libnet) The following perl script will work fine on a RH6.2SBE2 system and Beta3 system, but will fail on Beta4 & 5. #!/usr/bin/perl use Net::FTP; @ISA = qw(Net::Cmd); $ip="10.180.30.70"; $ftp = Net::FTP->new("$ip", Debug => 0); print "Connecting...\n"; $ftp->login("anonymous",'ftp'); $ftp->binary(); $ftp->cwd("/pub"); print "Current DIR is now /pub\n"; $reps = 0; while($reps <=100) { foreach $file (test1, test2) { print "Getting $file\n"; $ftp->get("$file"); } $reps = $reps + 1; } print "DONE.\n";
The fix for #14779 appears to have fixed this as well. Modifying the values forthe $ip, test1, and test2 variables to pull README and README.roughcuts from ourFTP server works. *** This bug has been marked as a duplicate of 14779 ***