diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 11:46:04 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 11:46:04 +0000 |
| commit | 4006b6abce88b7a53502926f921ae1408b5dd37e (patch) | |
| tree | 2090905e20aaf74446663134f6980fe9cc61bfdd /perl-install/printer/main.pm | |
| parent | f3274ad01b2b1d7e84b6a2c26ce03f605b0b7369 (diff) | |
| download | drakx-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.pm | 10 |
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. |