[BUG:PATCH] dumpvar.pl parses some references incorrectly

[p5sagit/p5-mst-13.2.git] / lib / CPAN.pm

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 4f4c3a0..c8b7b28 100644 (file)
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -1,7 +1,7 @@
 package CPAN;
 use vars qw{$META $Signal $Cwd $End $Suppress_readline};
 
-$VERSION = '1.24';
+$VERSION = '1.2401';
 
 # $Id: CPAN.pm,v 1.139 1997/03/31 22:43:23 k Exp $
 
@@ -1440,6 +1440,7 @@ Trying with $funkyftp to get
            $want_compressed = $aslocal =~ s/\.gz//;
            my($source_switch) = "";
            $source_switch = "-source" if $funkyftp =~ /\blynx$/;
+           $source_switch = "-c" if $funkyftp =~ /\bncftp$/;
            my($system) = "$funkyftp $source_switch '$url' > $aslocal";
            my($wstatus);
            if (($wstatus = system($system)) == 0) {