aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-21 08:08:35 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-21 08:08:35 +0000
commit834262522a6453d433a5a8a4de678fcc837824fa (patch)
tree01151d9f7a4c2dbca937e98df5479b3f54474f00
parent5e2dce8c729730cba981d35fe431ccfd689661df (diff)
downloadperl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.tar
perl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.tar.gz
perl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.tar.bz2
perl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.tar.xz
perl-URPM-834262522a6453d433a5a8a4de678fcc837824fa.zip
Minor cleanup
-rw-r--r--URPM/Signature.pm5
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.