summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/gimp.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-28 13:26:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-28 13:26:25 +0000
commitec747dc1097a5f80d220311dc89e9d6ec32cab31 (patch)
tree88da1b167952608d6ae5d7579927a85baf4767ce /perl-install/printer/gimp.pm
parent6bd6d9750078047ed4df33564ace48d1cb3c32a9 (diff)
downloaddrakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.tar
drakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.tar.gz
drakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.tar.bz2
drakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.tar.xz
drakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.zip
perl_checker adaptations
Diffstat (limited to 'perl-install/printer/gimp.pm')
-rw-r--r--perl-install/printer/gimp.pm18
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/printer/gimp.pm b/perl-install/printer/gimp.pm
index 2655c4340..c3a8908a7 100644
--- a/perl-install/printer/gimp.pm
+++ b/perl-install/printer/gimp.pm
@@ -43,7 +43,7 @@ sub configure {
}
}
# Add the printer entry
- if (!isprinterconfigured ($queue, $configfilecontent)) {
+ if (!isprinterconfigured($queue, $configfilecontent)) {
# Remove the old printer entry
$configfilecontent =
removeprinter($queue, $configfilecontent);
@@ -60,7 +60,7 @@ sub configure {
s/\n/\nCurrent-Printer: $printer->{DEFAULT}\n/s;
} else {
$configfilecontent =~ /^\s*Current\-Printer\s*:\s*(\S+)\s*$/m;
- if (!isprinterconfigured ($1, $configfilecontent)) {
+ if (!isprinterconfigured($1, $configfilecontent)) {
$configfilecontent =~
s/(Current\-Printer\s*:\s*)\S+/$1$printer->{DEFAULT}/;
}
@@ -114,7 +114,7 @@ sub addcupsremoteto {
# Load GIMP's printer config file
my $configfilecontent = readconfigfile($configfilename);
# Add the printer entry
- if (!isprinterconfigured ($queue, $configfilecontent)) {
+ if (!isprinterconfigured($queue, $configfilecontent)) {
# Remove the old printer entry
$configfilecontent = removeprinter($queue, $configfilecontent);
# Add the new printer entry
@@ -213,8 +213,8 @@ sub makeprinterentry {
sub findconfigfiles {
my @configfilenames;
- push (@configfilenames, ".gimp-1.2/printrc") if -d "$::prefix/usr/lib/gimp/1.2";
- push (@configfilenames, ".gimp-1.3/printrc") if -d "$::prefix/usr/lib/gimp/1.3";
+ push @configfilenames, ".gimp-1.2/printrc" if -d "$::prefix/usr/lib/gimp/1.2";
+ push @configfilenames, ".gimp-1.3/printrc" if -d "$::prefix/usr/lib/gimp/1.3";
my @filestotreat;
local *PASSWD;
open PASSWD, "< $::prefix/etc/passwd" or die "Cannot read /etc/passwd!\n";
@@ -239,7 +239,7 @@ sub findconfigfiles {
close F;
set_permissions("$::prefix$homedir/$file", "$uid.$gid") or next;
}
- push (@filestotreat, "$homedir/$file");
+ push @filestotreat, "$homedir/$file";
}
}
}
@@ -282,7 +282,7 @@ sub addentry {
}
}
push(@lines, $entry) if $sectionfound && !$entryinserted;
- return join ("\n", @lines);
+ return join("\n", @lines);
}
sub addprinter {
@@ -317,7 +317,7 @@ sub removeentry {
}
}
}
- return join ("", @lines);
+ return join "", @lines;
}
sub removeprinter {
@@ -341,7 +341,7 @@ sub removeprinter {
}
}
}
- return join ("", @lines);
+ return join "", @lines;
}
sub isprinterconfigured {