diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-07 12:48:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-07 12:48:30 +0000 |
| commit | b9e31bd22fc6933fd92d3269a498fb5e06b62318 (patch) | |
| tree | 10e10d16ff49513ed73d13ac065bccd980f50467 /lib | |
| parent | 34199b7f1fc1b491115ebae416e533f0127ac7e5 (diff) | |
| download | perl-b9e31bd22fc6933fd92d3269a498fb5e06b62318.tar.gz | |
Upgrade to CPAN 1.61.
p4raw-id: //depot/perl@16441
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CPAN.pm | 9 | ||||
| -rw-r--r-- | lib/CPAN/FirstTime.pm | 4 |
2 files changed, 7 insertions, 6 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index 0b62b32a50..b628386d26 100644 --- a/lib/CPAN.pm +++ b/lib/CPAN.pm @@ -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 is_installed { 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 @@ sub test { 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) { diff --git a/lib/CPAN/FirstTime.pm b/lib/CPAN/FirstTime.pm index e85ef93132..578a5bd6e5 100644 --- a/lib/CPAN/FirstTime.pm +++ b/lib/CPAN/FirstTime.pm @@ -18,7 +18,7 @@ use File::Basename (); 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 @@ to actually use it. But we need to know your favorite WAIT server. If 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; } |