summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-20 13:21:01 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-20 13:21:01 +0000
commit10255efd87348acddcc8f54ce5b451766949b739 (patch)
treea07dc08220b22d7160ea1d9d6c17539f9039b1c6 /perl-install
parent869ec05f3d954962ae1c66c27a018b979d0629bf (diff)
downloaddrakx-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.pm6
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;