From 141e9df0851db10bdef8376bad304fabdc83215a Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Thu, 20 Oct 2005 16:05:06 +0000 Subject: - perl_checker fix. --- perl-install/printer/main.pm | 4 ++-- 1 file 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}; -- cgit v1.2.1