From 25946f2b1829f207aab844f3464ce515a50f15cc Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 25 Apr 2000 16:12:35 +0000 Subject: *** empty log message *** --- perl-install/printer.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/printer.pm') 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. -- cgit v1.2.1