diff options
Diffstat (limited to 'perl-install/printer.pm')
| -rw-r--r-- | perl-install/printer.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm index 2947e3c75..52fde82fb 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -6,7 +6,7 @@ use strict; use vars qw(%thedb %spooler %spooler_inv %printer_type %printer_type_inv @entries_db_short @entry_db_description %descr_to_help %descr_to_db %db_to_descr %descr_to_ppd); -use common qw(:common :system :file); +use common; use commands; use run_program; @@ -114,7 +114,7 @@ sub read_configured_queues($) { my ($printer) = @_; my @QUEUES; # Get the default spooler choice from the config file - if (!($printer->{SPOOLER} ||= printer::get_default_spooler())) { + if (!($printer->{SPOOLER} ||= get_default_spooler())) { #- Find the first spooler where there are queues my $spooler; for $spooler (qw(cups pdq lprng lpd)) { |