diff options
| -rw-r--r-- | perl-install/printer.pm | 4 | ||||
| -rw-r--r-- | perl-install/printerdrake.pm | 4 |
2 files changed, 4 insertions, 4 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)) { diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 5fb132131..18d368e78 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -4,7 +4,7 @@ package printerdrake; use diagnostics; use strict; -use common qw(:common :file :functional :system); +use common; use detect_devices; use commands; use modules; @@ -84,7 +84,7 @@ complete => sub { foreach (@parport) { $device eq $_->{port} or next; $printer->{DBENTRY} = - common::bestMatchSentence2($_->{val}{DESCRIPTION}, + bestMatchSentence($_->{val}{DESCRIPTION}, keys %printer::thedb); } 1; |