summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/printer/main.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 31d8981ba..3a3c37dbd 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -1918,11 +1918,11 @@ sub poll_ppd_base {
my ($devidmake, $devidmodel, $deviddesc, $devidcmdset);
# Replace an existing printer entry if it has linked
# to the current PPD file.
- my ($filename, $ppdkey);
+ my $filename;
$ppd =~ m!([^/]+\.ppd)(\.gz|\.bz2|)$!;
if (($filename = $1) &&
($#{$linkedppds{$filename}} >= 0)) {
- foreach $ppdkey (@{$linkedppds{$filename}}) {
+ foreach my $ppdkey (@{$linkedppds{$filename}}) {
next if !defined($thedb{$ppdkey});
# Save the autodetection data
$devidmake = $thedb{$ppdkey}{devidmake};