From 10255efd87348acddcc8f54ce5b451766949b739 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
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/printer')

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