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 /lib/CPAN.pm | |
| 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
Diffstat (limited to 'lib/CPAN.pm')
| -rw-r--r-- | lib/CPAN.pm | 5 |
1 files changed, 4 insertions, 1 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; |