diff options
author | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-01 18:17:15 +0000 |
---|---|---|
committer | Till Kamppeter <tkamppeter@mandriva.com> | 2001-08-01 18:17:15 +0000 |
commit | 45a8f2704e6b1f9760b86c2bb6748c546fb38f32 (patch) | |
tree | f91400086520c52879863a0ce83575093113906d /perl-install | |
parent | 4f50833a5c207bcf42fc8b8a5b4c5d329d3aaa11 (diff) | |
download | drakx-backup-do-not-use-45a8f2704e6b1f9760b86c2bb6748c546fb38f32.tar drakx-backup-do-not-use-45a8f2704e6b1f9760b86c2bb6748c546fb38f32.tar.gz drakx-backup-do-not-use-45a8f2704e6b1f9760b86c2bb6748c546fb38f32.tar.bz2 drakx-backup-do-not-use-45a8f2704e6b1f9760b86c2bb6748c546fb38f32.tar.xz drakx-backup-do-not-use-45a8f2704e6b1f9760b86c2bb6748c546fb38f32.zip |
Fixed bug in recognizing the printer ID in the Foomatic overview.
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/printer.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm index 59c5b0c2e..59f4ce9a0 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -1,10 +1,10 @@ package printer; # $Id$ -use diagnostics; -use strict; -use vars qw(%thedb %spooler %spooler_inv %printer_type %printer_type_inv @entries_db_short @entry_db_description %descr_to_help %descr_to_db %db_to_descr %descr_to_ppd); + + + use common; use commands; @@ -226,7 +226,7 @@ sub read_printer_db(;$) { } } $entry = {}; - } elsif (m!^\s*<id>\s*([0-9]+)\s*</id>\s*$!) { + } elsif (m!^\s*<id>\s*([^\s<>]+)\s*</id>\s*$!) { # Foomatic printer ID $entry->{id} = $1; } elsif (m!^\s*<make>(.+)</make>\s*$!) { |