| --- lib/CPAN/FirstTime.pm.orig 2006-02-06 07:50:13.000000000 -0500 |
| +++ lib/CPAN/FirstTime.pm 2006-02-06 07:50:28.000000000 -0500 |
| @@ -292,7 +292,7 @@ by ENTER. |
| my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'}; |
| local $^W = $old_warn; |
| my $progname; |
| - for $progname (qw/gzip tar unzip make lynx wget ncftpget ncftp ftp gpg/){ |
| + for $progname (qw/gzip tar unzip make links lynx wget ncftpget ncftp ftp gpg/){ |
| if ($^O eq 'MacOS') { |
| $CPAN::Config->{$progname} = 'not_here'; |
| next; |
| --- lib/CPAN.pm.orig 2006-02-06 07:54:43.000000000 -0500 |
| +++ lib/CPAN.pm 2006-02-06 07:52:59.000000000 -0500 |
| @@ -2604,7 +2604,7 @@ sub hosthard { |
| |
| $self->debug("localizing funkyftpwise[$url]") if $CPAN::DEBUG; |
| my($f,$funkyftp); |
| - for $f ('lynx','ncftpget','ncftp','wget') { |
| + for $f ('links','lynx','ncftpget','ncftp','wget') { |
| next unless exists $CPAN::Config->{$f}; |
| $funkyftp = $CPAN::Config->{$f}; |
| next unless defined $funkyftp; |
| @@ -2613,7 +2613,7 @@ sub hosthard { |
| ($asl_ungz = $aslocal) =~ s/\.gz//; |
| $asl_gz = "$asl_ungz.gz"; |
| my($src_switch) = ""; |
| - if ($f eq "lynx"){ |
| + if (($f eq "lynx")||($f eq "links")){ |
| $src_switch = " -source"; |
| } elsif ($f eq "ncftp"){ |
| $src_switch = " -c"; |
| @@ -2637,10 +2637,14 @@ Trying with "$funkyftp$src_switch" to ge |
| my($wstatus); |
| if (($wstatus = system($system)) == 0 |
| && |
| - ($f eq "lynx" ? |
| + (($f eq "lynx" ? |
| -s $asl_ungz # lynx returns 0 when it fails somewhere |
| : 1 |
| - ) |
| + )|| |
| + ($f eq "links" ? |
| + -s $asl_ungz # links returns 0 when it fails somewhere |
| + : 1 |
| + )) |
| ) { |
| if (-s $aslocal) { |
| # Looks good |
| @@ -2695,7 +2699,7 @@ returned status $estatus (wstat $wstatus |
| }); |
| } |
| return if $CPAN::Signal; |
| - } # lynx,ncftpget,ncftp |
| + } # links,lynx,ncftpget,ncftp |
| } # host |
| } |
| |
| @@ -6022,7 +6026,7 @@ stalled. |
| |
| The CPAN module is designed to automate the make and install of perl |
| modules and extensions. It includes some primitive searching capabilities and |
| -knows how to use Net::FTP or LWP (or lynx or an external ftp client) |
| +knows how to use Net::FTP or LWP (or lynx or links or an external ftp client) |
| to fetch the raw data from the net. |
| |
| Modules are fetched from one or more of the mirrored CPAN |
| @@ -6975,16 +6979,18 @@ or |
| |
| =back |
| |
| -=head2 Configuring lynx or ncftp for going through a firewall |
| +=head2 Configuring links or lynx or ncftp for going through a firewall |
| |
| If you can go through your firewall with e.g. lynx, presumably with a |
| command such as |
| |
| /usr/local/bin/lynx -pscott:tiger |
| + /usr/local/bin/links -pscott:tiger |
| |
| then you would configure CPAN.pm with the command |
| |
| o conf lynx "/usr/local/bin/lynx -pscott:tiger" |
| + o conf links "/usr/local/bin/links -pscott:tiger" |
| |
| That's all. Similarly for ncftp or ftp, you would configure something |
| like |