diff options
| author | Andreas König <a.koenig@mind.de> | 1998-07-12 10:22:16 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-12 06:29:23 +0000 |
| commit | 52128c7bef3f076ac01499c67c282a95011ff34a (patch) | |
| tree | e78cf8deb6a5c33d29e52477ccc5dcd1c1eccb58 | |
| parent | 5c0ca7990f0d90291b9a3d0b6c57bae560b23b52 (diff) | |
| download | perl-52128c7bef3f076ac01499c67c282a95011ff34a.tar.gz | |
[5.004_71] Patch: let CPAN.pm work with threaded perl
Message-Id: <sfck95jtwpz.fsf@dubravka.in-berlin.de>
p4raw-id: //depot/perl@1449
| -rw-r--r-- | lib/CPAN.pm | 5 | ||||
| -rw-r--r-- | lib/SelfLoader.pm | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index 50fc952116..b510ea2082 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 f93841c862..a73f68a8c4 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)); |