diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-20 21:34:51 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-20 21:34:51 +0000 |
| commit | a03213c1fea7fbccb5a30ccda483d833afc73e96 (patch) | |
| tree | dd56b570a20ae7a0830eb26b983f72424d251911 /perl-install/standalone | |
| parent | e8ff31bca69b4a484eef66d40051674da3345158 (diff) | |
| download | drakx-backup-do-not-use-a03213c1fea7fbccb5a30ccda483d833afc73e96.tar drakx-backup-do-not-use-a03213c1fea7fbccb5a30ccda483d833afc73e96.tar.gz drakx-backup-do-not-use-a03213c1fea7fbccb5a30ccda483d833afc73e96.tar.bz2 drakx-backup-do-not-use-a03213c1fea7fbccb5a30ccda483d833afc73e96.tar.xz drakx-backup-do-not-use-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')
| -rwxr-xr-x | perl-install/standalone/printerdrake | 6 |
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'); |