summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2005-10-20 16:05:06 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2005-10-20 16:05:06 +0000
commit141e9df0851db10bdef8376bad304fabdc83215a (patch)
tree65ea0a171520d8bd14fb9b14c87426530f05981c
parent22849669f61beb6a5b2120142dbdb5fe4971cebe (diff)
downloaddrakx-141e9df0851db10bdef8376bad304fabdc83215a.tar
drakx-141e9df0851db10bdef8376bad304fabdc83215a.tar.gz
drakx-141e9df0851db10bdef8376bad304fabdc83215a.tar.bz2
drakx-141e9df0851db10bdef8376bad304fabdc83215a.tar.xz
drakx-141e9df0851db10bdef8376bad304fabdc83215a.zip
- perl_checker fix.
-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};