Change 16441 by jhi@alpha on 2002/05/07 12:48:30
Upgrade to CPAN 1.61.
Affected files ...
.... //depot/perl/lib/CPAN.pm#53 edit
.... //depot/perl/lib/CPAN/FirstTime.pm#28 edit
Differences ...
==== //depot/perl/lib/CPAN.pm#53 (text) ====
Index: perl/lib/CPAN.pm
--- perl/lib/CPAN.pm#52~16000~ Fri Apr 19 05:16:08 2002
+++ perl/lib/CPAN.pm Tue May 7 05:48:30 2002
@@ -1,11 +1,11 @@
# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
package CPAN;
-$VERSION = '1.60';
-# $Id: CPAN.pm,v 1.389 2002/04/19 09:37:07 k Exp $
+$VERSION = '1.61';
+# $Id: CPAN.pm,v 1.390 2002/05/07 10:04:58 k Exp $
# only used during development:
$Revision = "";
-# $Revision = "[".substr(q$Revision: 1.389 $, 10)."]";
+# $Revision = "[".substr(q$Revision: 1.390 $, 10)."]";
use Carp ();
use Config ();
@@ -798,6 +798,7 @@
sub set_perl5lib {
my($self) = @_;
+ $self->{is_tested} ||= {};
return unless %{$self->{is_tested}};
my $env = $ENV{PERL5LIB};
$env = $ENV{PERLLIB} unless defined $env;
@@ -4655,7 +4656,7 @@
return;
}
- local $ENV{PERL5LIB} = $ENV{PERL5LIB};
+ local $ENV{PERL5LIB} = $ENV{PERL5LIB} || "";
$CPAN::META->set_perl5lib;
my $system = join " ", $CPAN::Config->{'make'}, "test";
if (system($system) == 0) {
==== //depot/perl/lib/CPAN/FirstTime.pm#28 (text) ====
Index: perl/lib/CPAN/FirstTime.pm
--- perl/lib/CPAN/FirstTime.pm#27~16000~ Fri Apr 19 05:16:08 2002
+++ perl/lib/CPAN/FirstTime.pm Tue May 7 05:48:30 2002
@@ -18,7 +18,7 @@
use File::Path ();
use File::Spec;
use vars qw($VERSION);
-$VERSION = substr q$Revision: 1.55 $, 10;
+$VERSION = substr q$Revision: 1.56 $, 10;
=head1 NAME
@@ -437,7 +437,7 @@
you don\'t know a WAIT server near you, just press ENTER.
};
- $default = "wait://ls6.informatik.uni-dortmund.de:1404";
+ $default = "wait://ls6-www.informatik.uni-dortmund.de:1404";
$ans = prompt("Your favorite WAIT server?\n ",$default);
push @{$CPAN::Config->{'wait_list'}}, $ans;
}
End of Patch.
