diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-28 13:26:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-28 13:26:25 +0000 |
| commit | ec747dc1097a5f80d220311dc89e9d6ec32cab31 (patch) | |
| tree | 88da1b167952608d6ae5d7579927a85baf4767ce /perl-install/printer/gimp.pm | |
| parent | 6bd6d9750078047ed4df33564ace48d1cb3c32a9 (diff) | |
| download | drakx-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.pm | 18 |
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 { |