From 10255efd87348acddcc8f54ce5b451766949b739 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 May 2003 13:21:01 +0000 Subject: (addprinter,isprinterconfigured): remove temp variables --- perl-install/printer/gimp.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/printer/gimp.pm b/perl-install/printer/gimp.pm index bb9f00b31..d2ec86092 100644 --- a/perl-install/printer/gimp.pm +++ b/perl-install/printer/gimp.pm @@ -275,8 +275,7 @@ sub addentry { sub addprinter { my ($section, $filecontent) = @_; - my @lines = pop_spaces(split("\n", $filecontent)); - foreach (@lines) { + foreach (pop_spaces(split("\n", $filecontent))) { # section already there, nothing to be done return $filecontent if /^\s*Printer\s*:\s*($section)\s*$/; } @@ -331,8 +330,7 @@ sub isprinterconfigured { my $drivernotps2 = 0; my $ppdfileset = 0; my $nonrawprinting = 0; - my @lines = split("\n", $filecontent); - foreach (@lines) { + foreach (split("\n", $filecontent)) { if (!$sectionfound) { if (/^\s*Printer\s*:\s*($queue)\s*$/) { $sectionfound = 1; -- cgit v1.2.1