diff options
| author | Richard L. Maus <rmaus@monmouth.com> | 1997-06-11 12:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | 25dc8abb365ced9012e8a069c3d136dc39512341 (patch) | |
| tree | 648cb47a8cf7e999a8373ac152abeb0a22ac381d /lib/CPAN.pm | |
| parent | 6e7678aff2c64e56d00415c6b1a8885981ec7c92 (diff) | |
| download | perl-25dc8abb365ced9012e8a069c3d136dc39512341.tar.gz | |
Patch to CPAN.pm (perl5.004) for ncftp
I found a minor bug in CPAN.pm and swatted it. When I perform "perl
-MCPAN -e 'install "Net::FTP", my system does not have LWP installed,
nor "lynx", but I do have "ncftp" version 2.3.0 (December 5, 1995).
Attempts to redirect standard output of "ncftp" failed, because the
CPAN.pm command causes "ncftp" to directly create the file and nothing
is sent to standard output. I have included a patch that adds the "-c"
flag so that the file is instead sent to standard output.
p5p-msgid: 337FBAC8.167EB0E7@monmouth.com
Diffstat (limited to 'lib/CPAN.pm')
| -rw-r--r-- | lib/CPAN.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index 32934a7054..c8b7b28301 100644 --- a/lib/CPAN.pm +++ b/lib/CPAN.pm @@ -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) { |