diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-07-08 08:38:51 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-07-08 08:38:51 +0000 |
commit | dba8fab056173ce124e1c151fb46277af8d35282 (patch) | |
tree | da1a9e995525ba544e4348cd74cfee345d479648 /perl-install/printer/cups.pm | |
parent | a86500e3c082c3985e22b76b7abbc9a59255f02b (diff) | |
download | drakx-backup-do-not-use-dba8fab056173ce124e1c151fb46277af8d35282.tar drakx-backup-do-not-use-dba8fab056173ce124e1c151fb46277af8d35282.tar.gz drakx-backup-do-not-use-dba8fab056173ce124e1c151fb46277af8d35282.tar.bz2 drakx-backup-do-not-use-dba8fab056173ce124e1c151fb46277af8d35282.tar.xz drakx-backup-do-not-use-dba8fab056173ce124e1c151fb46277af8d35282.zip |
reduce the overall perl_checker warnings
Diffstat (limited to 'perl-install/printer/cups.pm')
-rw-r--r-- | perl-install/printer/cups.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/printer/cups.pm b/perl-install/printer/cups.pm index 64b0df045..0ddff19f0 100644 --- a/perl-install/printer/cups.pm +++ b/perl-install/printer/cups.pm @@ -27,8 +27,8 @@ sub lpstat_lpv() { my $currentitem = -1; for my $line (@lpstat) { - chomp ($line); - if (!($line =~ m!^\s*$!)) { + chomp($line); + if ($line !~ m!^\s*$!) { if ($line =~ m!^printer\s+(\S+)\s+(\S.*)$!) { # Beginning of new printer's entry my $name = $1; @@ -51,7 +51,7 @@ sub lpstat_lpv() { my $name = $1; my $uri = $2; if (defined($itemshash->{$name})) { - if ($uri !~ /:/) {$uri = "file:" . $uri}; + if ($uri !~ /:/) { $uri = "file:" . $uri } $currentitem = $itemshash->{$name}; if (($currentitem <= $#items) && ($items[$currentitem]{queuename} eq $name)) { @@ -136,7 +136,7 @@ sub get_remote_queues { sub queue_enabled { my ($queue) = @_; 0 != grep { - /\b$queue\b.*\benabled\b/i + /\b$queue\b.*\benabled\b/i; } run_program::rooted_get_stdout($::prefix, 'lpstat', '-p', $queue); } |