diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-20 13:21:01 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-20 13:21:01 +0000 |
| commit | 10255efd87348acddcc8f54ce5b451766949b739 (patch) | |
| tree | a07dc08220b22d7160ea1d9d6c17539f9039b1c6 /perl-install | |
| parent | 869ec05f3d954962ae1c66c27a018b979d0629bf (diff) | |
| download | drakx-10255efd87348acddcc8f54ce5b451766949b739.tar drakx-10255efd87348acddcc8f54ce5b451766949b739.tar.gz drakx-10255efd87348acddcc8f54ce5b451766949b739.tar.bz2 drakx-10255efd87348acddcc8f54ce5b451766949b739.tar.xz drakx-10255efd87348acddcc8f54ce5b451766949b739.zip | |
(addprinter,isprinterconfigured): remove temp variables
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer/gimp.pm | 6 |
1 files changed, 2 insertions, 4 deletions
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; |