>>>>> On Mon, 6 May 2002 17:50:38 +0300, Jarkko Hietaniemi <jhi@iki.fi> said: > - CPAN.pm syncup [Andreas] I just released 1.61 and this is the minidiff: --- /usr/sources/perl/repoperls/perl-5.7.3@16421/lib/CPAN.pm Mon May 6 04:30:13 2002 +++ lib/CPAN.pm Tue May 7 12:04:58 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) { --- /usr/sources/perl/repoperls/perl-5.7.3@16421/lib/CPAN/FirstTime.pm Mon May 6 04:30:13 2002 +++ lib/CPAN/FirstTime.pm Tue Apr 23 14:45:25 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; } -- andreasThread Previous | Thread Next