diff options
| -rw-r--r-- | perl-install/printer/main.pm | 4 |
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})) { |