develooper Front page | perl.perl5.porters | Postings from May 2002

CPAN.pm syncup (Was: perl@16433)

From:
andreas.koenig
Date:
May 7, 2002 03:40
Subject:
CPAN.pm syncup (Was: perl@16433)
Message ID:
m31ycob5ql.fsf@anima.de
>>>>> 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;
     }


-- 
andreas



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About