summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-03-31 11:52:06 +0000
committerFrancois Pons <fpons@mandriva.com>2000-03-31 11:52:06 +0000
commit5999898cb22f35cfadbea9df40ee82e622be4519 (patch)
tree4d015a00ae722fd57f5593dbdc8c22e676948a2d /perl-install/printer.pm
parentbee063d9df87e71367e9b4ed98668a111b9ec62f (diff)
downloaddrakx-5999898cb22f35cfadbea9df40ee82e622be4519.tar
drakx-5999898cb22f35cfadbea9df40ee82e622be4519.tar.gz
drakx-5999898cb22f35cfadbea9df40ee82e622be4519.tar.bz2
drakx-5999898cb22f35cfadbea9df40ee82e622be4519.tar.xz
drakx-5999898cb22f35cfadbea9df40ee82e622be4519.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 34a20336d..f7e847b9f 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -328,7 +328,7 @@ sub getinfo($) {
sub read_printer_db(;$) {
my $dbpath = $prefix . ($_[0] || $PRINTER_DB_FILE);
- %thedb and return;
+ scalar(keys %thedb) > 3 and return; #- try reparse if using only ppa, POSTSCRIPT, TEXT.
my %available_devices; #- keep only available devices in our database.
local *AVAIL; open AVAIL, ($::testing ? "$prefix" : "chroot $prefix ") . "/usr/bin/gs --help |";