summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/printerdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-20 21:34:51 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-20 21:34:51 +0000
commita03213c1fea7fbccb5a30ccda483d833afc73e96 (patch)
treedd56b570a20ae7a0830eb26b983f72424d251911 /perl-install/standalone/printerdrake
parente8ff31bca69b4a484eef66d40051674da3345158 (diff)
downloaddrakx-a03213c1fea7fbccb5a30ccda483d833afc73e96.tar
drakx-a03213c1fea7fbccb5a30ccda483d833afc73e96.tar.gz
drakx-a03213c1fea7fbccb5a30ccda483d833afc73e96.tar.bz2
drakx-a03213c1fea7fbccb5a30ccda483d833afc73e96.tar.xz
drakx-a03213c1fea7fbccb5a30ccda483d833afc73e96.zip
perl_checker fixes
printer::printerdrake::{setup_smb,setup_socket}(): do not use undef values, but reuse those we just calculate printer::printerdrake::main(): fix printer::default::printer_type() callee
Diffstat (limited to 'perl-install/standalone/printerdrake')
-rwxr-xr-xperl-install/standalone/printerdrake6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake
index 7d4576656..38bb32e97 100755
--- a/perl-install/standalone/printerdrake
+++ b/perl-install/standalone/printerdrake
@@ -30,7 +30,7 @@ use c;
local $_ = join '', @ARGV;
-printer::main::get_usermode ();
+printer::main::get_usermode();
my $printer;
@@ -44,7 +44,7 @@ exit 0 unless printer::printerdrake::first_time_dialog($printer, $in, 1);
# Check whether Foomatic is installed and install it if necessary
printer::printerdrake::install_foomatic($in);
-my $w = $in->wait_message(N("Printerdrake"),
+my $_w = $in->wait_message(N("Printerdrake"),
N("Reading data of installed printers..."));
# Get what was installed before
eval { $printer = printer::main::getinfo('') };
@@ -56,7 +56,7 @@ $commandline =~ /-lpr/ and
$commandline =~ /-lpd/ and
$printer->{SPOOLER} = 'lpd' and printer::main::read_configured_queues($printer);
$commandline =~ /-lprng/ and
- $printer->{SPOOLER} ='lprng' and printer::main::read_configured_queues($printer);
+ $printer->{SPOOLER} = 'lprng' and printer::main::read_configured_queues($printer);
$commandline =~ /-pdq/ and
$printer->{SPOOLER} = 'pdq' and printer::main::read_configured_queues($printer);
-r '/etc/modules.conf' and modules::mergein_conf('/etc/modules.conf');