From: Andreas König <a.koenig@mind.de>
Date: Sun, 12 Jul 1998 08:22:16 +0000 (+0200)
Subject: [5.004_71] Patch: let CPAN.pm work with threaded perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52128c7bef3f076ac01499c67c282a95011ff34a;p=p5sagit%2Fp5-mst-13.2.git

[5.004_71] Patch: let CPAN.pm work with threaded perl

	Message-Id: <sfck95jtwpz.fsf@dubravka.in-berlin.de>

p4raw-id: //depot/perl@1449
---

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 50fc952..b510ea2 100644
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -5,7 +5,7 @@ use vars qw{$Try_autoload $Revision
 	    $Frontend  $Defaultsite
 	   };
 
-$VERSION = '1.39';
+$VERSION = '1.3901';
 
 # $Id: CPAN.pm,v 1.226 1998/07/08 22:29:29 k Exp k $
 
@@ -2387,6 +2387,7 @@ sub rd_authindex {
     # no strict 'refs';
     local(*FH);
     tie *FH, CPAN::Tarzip, $index_target;
+    local($/) = "\n";
     while (<FH>) {
 	chomp;
 	my($userid,$fullname,$email) =
@@ -2413,6 +2414,7 @@ sub rd_modpacks {
     return unless defined $index_target;
     $CPAN::Frontend->myprint("Going to read $index_target\n");
     my $fh = CPAN::Tarzip->TIEHANDLE($index_target);
+    local($/) = "\n";
     while ($_ = $fh->READLINE) {
 	last if /^\s*$/;
     }
@@ -2495,6 +2497,7 @@ sub rd_modlist {
     $CPAN::Frontend->myprint("Going to read $index_target\n");
     my $fh = CPAN::Tarzip->TIEHANDLE($index_target);
     my @eval;
+    local($/) = "\n";
     while ($_ = $fh->READLINE) {
 	if (/^Date:\s+(.*)/){
 	    return if $date_of_03 eq $1;
diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm
index f93841c..a73f68a 100644
--- a/lib/SelfLoader.pm
+++ b/lib/SelfLoader.pm
@@ -3,7 +3,8 @@ use Carp;
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(AUTOLOAD);
-$VERSION = 1.07; sub Version {$VERSION}
+$VERSION = "1.08";
+sub Version {$VERSION}
 $DEBUG = 0;
 
 my %Cache;      # private cache for all SelfLoader's client packages
@@ -45,6 +46,7 @@ sub _load_stubs {
         unless fileno($fh);
     $Cache{"${currpack}::<DATA"} = 1;   # indicate package is cached
 
+    local($/) = "\n";
     while(defined($line = <$fh>) and $line !~ m/^__END__/) {
         if ($line =~ m/^sub\s+([\w:]+)\s*(\([\\\$\@\%\&\*\;]*\))?/) {
             push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype));