summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-19 20:02:10 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-19 20:02:10 +0000
commitc85425ed49345940db69e57fbf9b91c15c6d821e (patch)
treec2f16702544488273d9f93517d276f7afc6c48dc /perl-install
parent19f95de3868a2c6281c849b0acec10d1cdd04b85 (diff)
downloaddrakx-c85425ed49345940db69e57fbf9b91c15c6d821e.tar
drakx-c85425ed49345940db69e57fbf9b91c15c6d821e.tar.gz
drakx-c85425ed49345940db69e57fbf9b91c15c6d821e.tar.bz2
drakx-c85425ed49345940db69e57fbf9b91c15c6d821e.tar.xz
drakx-c85425ed49345940db69e57fbf9b91c15c6d821e.zip
do not use "$1 !~ ..."
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/gimp.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/printer/gimp.pm b/perl-install/printer/gimp.pm
index e6eab53c1..0b0ebdaed 100644
--- a/perl-install/printer/gimp.pm
+++ b/perl-install/printer/gimp.pm
@@ -364,8 +364,8 @@ sub isprinterconfigured {
$drivernotps2 = $1 ne "ps2";
} elsif (/^\s*PPD\-File:\s*(\S+)\s*$/) {
$ppdfileset = 1;
- } elsif (/^\s*Destination:\s*(\S+.*)$/) {
- $nonrawprinting = $1 !~ /\-o\s*raw/;
+ } elsif (my ($dest) = /^\s*Destination:\s*(\S+.*)$/) {
+ $nonrawprinting = $dest !~ /\-o\s*raw/;
}
}
}