summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/main.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer/main.pm')
-rw-r--r--perl-install/printer/main.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 25f58474b..fa633e0cc 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -635,7 +635,9 @@ sub read_printer_db {
$entry->{ENTRY} =~ s/^CITOH/C.ITOH/i;
$entry->{ENTRY} =~
s/^KYOCERA[\s\-]*MITA/KYOCERA/i;
- if ($entry->{defaultdriver}) {
+ if (($entry->{defaultdriver}) &&
+ (member($entry->{defaultdriver},
+ @{$entry->{drivers}}))) {
my $driver = $entry->{defaultdriver};
$entry->{driver} = $driver;
if (defined($ppds->{$driver})) {