diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-21 08:08:35 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-21 08:08:35 +0000 |
| commit | 834262522a6453d433a5a8a4de678fcc837824fa (patch) | |
| tree | 01151d9f7a4c2dbca937e98df5479b3f54474f00 /URPM | |
| parent | 5e2dce8c729730cba981d35fe431ccfd689661df (diff) | |
| download | perl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.tar perl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.tar.gz perl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.tar.bz2 perl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.tar.xz perl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.zip | |
Minor cleanup
Diffstat (limited to 'URPM')
| -rw-r--r-- | URPM/Signature.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/URPM/Signature.pm b/URPM/Signature.pm index 78fdbd5..1baa9a4 100644 --- a/URPM/Signature.pm +++ b/URPM/Signature.pm @@ -33,7 +33,7 @@ sub parse_armored_file { #- check if an already opened file has been given directly. unless (ref $file) { my $F; - open $F, $file; + open $F, $file or return (); $file = $F; } @@ -55,8 +55,6 @@ sub parse_armored_file { } } } - close F; - @l; } @@ -96,7 +94,6 @@ sub parse_pubkeys { #- import pubkeys only if it is needed. sub import_needed_pubkeys { my ($urpm, $l, %options) = @_; - local (*F, $_); my $block = ''; #- use the same database handle to avoid re-opening multiple times the database. |