From 664c7aa1d6fdd8a1001585f43f0920601e1d219e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 27 Aug 2003 21:56:03 +0000
Subject: fix pot regeneration at package build time

---
 perl-install/printer/cups.pm | 3 +--
 1 file changed, 1 insertion(+), 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.*)$!) {
-- 
cgit v1.2.1