diff options
| -rw-r--r-- | perl-install/printer/cups.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/printer/cups.pm b/perl-install/printer/cups.pm index c4cf6bdb6..d0b89eabf 100644 --- a/perl-install/printer/cups.pm +++ b/perl-install/printer/cups.pm @@ -25,9 +25,8 @@ sub lpstat_lpv() { my @lpstat = run_program::rooted_get_stdout ($::prefix, 'lpstat', '-l', '-p', '-v'); - my $line; my $currentitem = -1; - for $line (@lpstat) { + for my $line (@lpstat) { chomp ($line); if (!($line =~ m!^\s*$!)) { if ($line =~ m!^printer\s+(\S+)\s+(\S.*)$!) { |