diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer/main.pm | 4 |
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}; |