summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/main.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-13 11:46:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-13 11:46:04 +0000
commit4006b6abce88b7a53502926f921ae1408b5dd37e (patch)
tree2090905e20aaf74446663134f6980fe9cc61bfdd /perl-install/printer/main.pm
parentf3274ad01b2b1d7e84b6a2c26ce03f605b0b7369 (diff)
downloaddrakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar.gz
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar.bz2
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar.xz
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.zip
add/remove spaces to make perl_checker happy
Diffstat (limited to 'perl-install/printer/main.pm')
-rw-r--r--perl-install/printer/main.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 77c365e7c..b9e536d61 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -237,7 +237,7 @@ sub read_configured_queues($) {
open F, ($::testing ? $prefix : "chroot $prefix/ ") .
"foomatic-configure -P -q -s $spooler |" or
die "Could not run foomatic-configure";
- eval join('',(<F>));
+ eval join('', <F>);
close F;
if ($service eq "pdq") {
#- Have we found queues? PDQ has no damon, so we consider
@@ -258,7 +258,7 @@ sub read_configured_queues($) {
open F, ($::testing ? $prefix : "chroot $prefix/ ") .
"foomatic-configure -P -q -s $printer->{SPOOLER} |" or
die "Could not run foomatic-configure";
- eval join('',(<F>));
+ eval join('', <F>);
close F;
}
$printer->{configured} = {};
@@ -522,7 +522,7 @@ sub read_foomatic_options ($) {
" $printer->{SPECIAL_OPTIONS}" : "")
. " |" or
die "Could not run foomatic-configure";
- eval join('',(<F>));
+ eval join('', (<F>));
close F;
# Return the arguments field
return $COMBODATA->{args};
@@ -1020,7 +1020,7 @@ sub configure_queue($) {
# so normal users can print.
if ($printer->{SPOOLER} eq 'pdq') {
if ($printer->{currentqueue}{connect} =~ m!^\s*file:(\S*)\s*$!) {
- set_permissions($1,"666");
+ set_permissions($1, "666");
}
}
@@ -1455,7 +1455,7 @@ sub configure_hpoj {
# Open configuration file
local *CONFIG;
- open(CONFIG,"> $prefix/etc/ptal/$ptaldevice") or
+ open(CONFIG, "> $prefix/etc/ptal/$ptaldevice") or
die "Could not open /etc/ptal/$ptaldevice for writing!\n";
# Write file header.