Update CPANPLUS to 0.85_06

[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / Module / Checksums.pm

diff --git a/lib/CPANPLUS/Module/Checksums.pm b/lib/CPANPLUS/Module/Checksums.pm
index 92a2cc2..e1a2bbd 100644 (file)
--- a/lib/CPANPLUS/Module/Checksums.pm
+++ b/lib/CPANPLUS/Module/Checksums.pm
@@ -141,7 +141,7 @@ sub _get_checksums_file {
     my $clone = $self->clone;
     $clone->package( CHECKSUMS );
 
-    my $file = $clone->fetch( %hash, force => 1 ) or return;
+    my $file = $clone->fetch( ttl => 3600, %hash ) or return;
 
     return $file;
 }
@@ -160,7 +160,7 @@ sub _parse_checksums_file {
 
     ### loop over the header, there might be a pgp signature ###
     my $signed;
-    while (<$fh>) {
+    while (local $_ = <$fh>) {
         last if /^\$cksum = \{\s*$/;    # skip till this line
         my $header = PGP_HEADER;        # but be tolerant of whitespace
         $signed = 1 if /^${header}\s*$/;# due to crossplatform linebreaks
@@ -170,7 +170,7 @@ sub _parse_checksums_file {
     ### *should* be valid perl code
     my $dist;
     my $cksum = {};
-    while (<$fh>) {
+    while (local $_ = <$fh>) {
 
         if (/^\s*'([^']+)' => \{\s*$/) {
             $dist = $1;
@@ -214,7 +214,7 @@ sub _check_signature_for_checksum_file {
     my $fh = OPEN_FILE->($file) or return;
 
     my $signed;
-    while (<$fh>) {
+    while (local $_ = <$fh>) {
         my $header = PGP_HEADER;
         $signed = 1 if /^$header$/;
     }