From: Richard L. Maus <rmaus@monmouth.com>
Date: Wed, 11 Jun 1997 00:00:00 +0000 (+1200)
Subject: Patch to CPAN.pm (perl5.004) for ncftp
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25dc8abb365ced9012e8a069c3d136dc39512341;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 32934a7..c8b7b28 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) {