summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/main.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-12 14:05:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-12 14:05:52 +0000
commitfc6a72175bf8ee7aed801e4003991e8e9c67c304 (patch)
tree7f435f15fbc29d6869ddd1db9cd95ef33ba77fde /perl-install/printer/main.pm
parent7902fe25c4e57756cbae9cce1e6a88c32e04b9f4 (diff)
downloaddrakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.gz
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.bz2
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.xz
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.zip
add/remove some spaces to make perl_checker happy
Diffstat (limited to 'perl-install/printer/main.pm')
-rw-r--r--perl-install/printer/main.pm36
1 files changed, 18 insertions, 18 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index ad525b0d6..907164ddb 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -239,7 +239,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
@@ -260,7 +260,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} = {};
@@ -524,7 +524,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};
@@ -1337,7 +1337,7 @@ sub configure_hpoj {
$bus = "par";
$address_arg = printer::detect::parport_addr($device);
$address_arg =~ /^\s*-base\s+(\S+)/;
- eval ("$base_address = $1");
+ eval "$base_address = $1";
} elsif ($device =~ /socket/) {
$bus = "hpjd";
$hostname = $model;
@@ -1399,7 +1399,7 @@ sub configure_hpoj {
close F;
chomp $serialnumber_long;
}
- if (cardReaderDetected ($ptalprobedevice)) {
+ if (cardReaderDetected($ptalprobedevice)) {
$cardreader = 1;
}
}
@@ -1441,7 +1441,7 @@ sub configure_hpoj {
}
# Delete any old/conflicting devices
- deleteDevice ($ptaldevice);
+ deleteDevice($ptaldevice);
if ($bus eq "par") {
while (1) {
my $oldDevname = lookupDevname ("mlc:par:",undef,undef,
@@ -1449,7 +1449,7 @@ sub configure_hpoj {
if (!defined($oldDevname)) {
last;
}
- deleteDevice ($oldDevname);
+ deleteDevice($oldDevname);
}
}
@@ -1575,7 +1575,7 @@ sub configure_hpoj {
"init.photod.append+=-maxaltports 26\n";
}
close(CONFIG);
- readOneDevice ($ptaldevice);
+ readOneDevice($ptaldevice);
# Restart HPOJ
printer::services::restart("hpoj");
@@ -1661,7 +1661,7 @@ RIGHTDRIVE=\" \"
sub configureapplications {
my ($printer) = @_;
- setcupslink ($printer);
+ setcupslink($printer);
printer::office::configureoffice('Star Office', $printer);
printer::office::configureoffice('OpenOffice.Org', $printer);
printer::gimp::configure($printer);
@@ -1669,23 +1669,23 @@ sub configureapplications {
sub addcupsremotetoapplications {
my ($printer, $queue) = @_;
- setcupslink ($printer);
- return (printer::office::add_cups_remote_to_office('Star Office', $printer, $queue) &&
- printer::office::add_cups_remote_to_office('OpenOffice.Org', $printer, $queue) &&
- printer::gimp::addcupsremoteto($printer, $queue));
+ setcupslink($printer);
+ return printer::office::add_cups_remote_to_office('Star Office', $printer, $queue) &&
+ printer::office::add_cups_remote_to_office('OpenOffice.Org', $printer, $queue) &&
+ printer::gimp::addcupsremoteto($printer, $queue);
}
sub removeprinterfromapplications {
my ($printer, $queue) = @_;
- setcupslink ($printer);
- return (printer::office::remove_printer_from_office('Star Office', $printer, $queue) &&
- printer::office::remove_printer_from_office('OpenOffice.Org', $printer, $queue) &&
- printer::gimp::removeprinterfrom($printer, $queue));
+ setcupslink($printer);
+ return printer::office::remove_printer_from_office('Star Office', $printer, $queue) &&
+ printer::office::remove_printer_from_office('OpenOffice.Org', $printer, $queue) &&
+ printer::gimp::removeprinterfrom($printer, $queue);
}
sub removelocalprintersfromapplications {
my ($printer) = @_;
- setcupslink ($printer);
+ setcupslink($printer);
printer::office::remove_local_printers_from_office('Star Office', $printer);
printer::office::remove_local_printers_from_office('OpenOffice.Org', $printer);
printer::gimp::removelocalprintersfrom($printer);