[5.004_71] Patch: let CPAN.pm work with threaded perl
authorAndreas König <a.koenig@mind.de>
Sun, 12 Jul 1998 08:22:16 +0000 (10:22 +0200)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 12 Jul 1998 06:29:23 +0000 (06:29 +0000)
Message-Id: <sfck95jtwpz.fsf@dubravka.in-berlin.de>

p4raw-id: //depot/perl@1449

lib/CPAN.pm
lib/SelfLoader.pm

index 50fc952..b510ea2 100644 (file)
@@ -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;
index f93841c..a73f68a 100644 (file)
@@ -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));