Change 20306: Too many my $fh:s.

[Jarkko Hietaniemi]

Change 20306 by [EMAIL PROTECTED] on 2003/07/29 12:05:24

        Too many my $fh:s.

Affected files ...

... //depot/perl/lib/CPAN.pm#62 edit

Differences ...

==== //depot/perl/lib/CPAN.pm#62 (text) ====
Index: perl/lib/CPAN.pm
--- perl/lib/CPAN.pm#61~20295~  Tue Jul 29 03:36:25 2003
+++ perl/lib/CPAN.pm    Tue Jul 29 05:05:24 2003
@@ -3667,9 +3667,12 @@
        File::Spec->catfile($CPAN::Config->{keep_source_where},
                            "authors", "id", @$chksumfile);
 
-    my $fh = FileHandle->new;
+
+    my $fh;
+
+    # purge and refetch old (pre-PGP) CHECKSUMS; they are a security hazard
+    $fh = FileHandle->new;
     if (open($fh, $lc_want)){
-       # purge and refetch old (pre-PGP) CHECKSUMS; they are a security hazard
        my $line = <$fh>; close $fh;
        unlink($lc_want) unless $line =~ /PGP/;
     }
@@ -3696,7 +3699,7 @@
     }
 
     # adapted from CPAN::Distribution::MD5_check_file ;
-    my $fh = FileHandle->new;
+    $fh = FileHandle->new;
     my($cksum);
     if (open $fh, $lc_file){
        local($/);
End of Patch.