summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-04-25 16:12:35 +0000
committerFrancois Pons <fpons@mandriva.com>2000-04-25 16:12:35 +0000
commit25946f2b1829f207aab844f3464ce515a50f15cc (patch)
treea6141f24a052d20499f34fb6ea92738273eacd79 /perl-install/printer.pm
parent4a62fb92b80fad9ba61cf0b4dd74fc5b03dcd94d (diff)
downloaddrakx-25946f2b1829f207aab844f3464ce515a50f15cc.tar
drakx-25946f2b1829f207aab844f3464ce515a50f15cc.tar.gz
drakx-25946f2b1829f207aab844f3464ce515a50f15cc.tar.bz2
drakx-25946f2b1829f207aab844f3464ce515a50f15cc.tar.xz
drakx-25946f2b1829f207aab844f3464ce515a50f15cc.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 69a8db954..13f5a3f50 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);
- scalar(keys %thedb) > 3 and return; #- try reparse if using only ppa, POSTSCRIPT, TEXT.
+ scalar(keys %thedb) > 4 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 |";
@@ -338,7 +338,7 @@ sub read_printer_db(;$) {
}
}
close AVAIL;
- $available_devices{ppa} = undef if -x "$prefix/usr/bin/pbm2ppa" && -x "$prefix/usr/bin/pnm2ppa";
+ $available_devices{ppa} = undef; #- if -x "$prefix/usr/bin/pbm2ppa" && -x "$prefix/usr/bin/pnm2ppa";
delete $available_devices{''};
@available_devices{qw/POSTSCRIPT TEXT/} = (); #- these are always available.