summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/cups.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-19 14:14:22 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-19 14:14:22 +0000
commit78dd1c5b452725709f60ea017882031a4cab38e5 (patch)
tree8d17ee5946d711cf4e55ecc7123b6c04c1f773e9 /perl-install/printer/cups.pm
parentb6c81a431dc681db51eaf22eaf090c280b56d9f4 (diff)
downloaddrakx-78dd1c5b452725709f60ea017882031a4cab38e5.tar
drakx-78dd1c5b452725709f60ea017882031a4cab38e5.tar.gz
drakx-78dd1c5b452725709f60ea017882031a4cab38e5.tar.bz2
drakx-78dd1c5b452725709f60ea017882031a4cab38e5.tar.xz
drakx-78dd1c5b452725709f60ea017882031a4cab38e5.zip
perl_checker fixes
Diffstat (limited to 'perl-install/printer/cups.pm')
-rw-r--r--perl-install/printer/cups.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/printer/cups.pm b/perl-install/printer/cups.pm
index 60efc7a04..127c342bb 100644
--- a/perl-install/printer/cups.pm
+++ b/perl-install/printer/cups.pm
@@ -8,7 +8,7 @@ use common;
#------------------------------------------------------------------------------
-sub lpstat_v {
+sub lpstat_v() {
map {
if (my ($queuename, $uri) = m/^\s*device\s+for\s+([^:\s]+):\s*(\S+)\s*$/) {
+{ queuename => $queuename, uri => $uri, if_($uri =~ m!^ipp://([^/:]+)[:/]!, ipp => $1) };