summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2004-03-02 23:53:09 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2004-03-02 23:53:09 +0000
commit1a3c998ac130567bacbec67c94efad8c0503fa19 (patch)
tree6d745e6df815d76521d69e08cd58c64faf5e20d1 /perl-install
parentc3156d0f7e2f73a5c8cde3da486f8b6c978b9494 (diff)
downloaddrakx-1a3c998ac130567bacbec67c94efad8c0503fa19.tar
drakx-1a3c998ac130567bacbec67c94efad8c0503fa19.tar.gz
drakx-1a3c998ac130567bacbec67c94efad8c0503fa19.tar.bz2
drakx-1a3c998ac130567bacbec67c94efad8c0503fa19.tar.xz
drakx-1a3c998ac130567bacbec67c94efad8c0503fa19.zip
Fixed HPOJ configuration when manually setting up a device.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/main.pm10
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index bf09563af..811397ebf 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -2219,6 +2219,16 @@ sub configure_hpoj {
} else {
return "";
}
+ if ($#autodetected < 0) {
+ # Make a pseudo structure for the auto-detected data if there is
+ # no auto-detected data (for example when configuring manually)
+ $autodetected[0] = {
+ 'port' => $device,
+ 'val' => {
+ 'MODEL' => N("Unknown model")
+ }
+ };
+ }
my $devdata;
foreach (@autodetected) {
$device eq $_->{port} or next;