diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2005-10-20 16:05:06 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2005-10-20 16:05:06 +0000 |
| commit | 141e9df0851db10bdef8376bad304fabdc83215a (patch) | |
| tree | 65ea0a171520d8bd14fb9b14c87426530f05981c /perl-install | |
| parent | 22849669f61beb6a5b2120142dbdb5fe4971cebe (diff) | |
| download | drakx-backup-do-not-use-141e9df0851db10bdef8376bad304fabdc83215a.tar drakx-backup-do-not-use-141e9df0851db10bdef8376bad304fabdc83215a.tar.gz drakx-backup-do-not-use-141e9df0851db10bdef8376bad304fabdc83215a.tar.bz2 drakx-backup-do-not-use-141e9df0851db10bdef8376bad304fabdc83215a.tar.xz drakx-backup-do-not-use-141e9df0851db10bdef8376bad304fabdc83215a.zip | |
- perl_checker fix.
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}; |