summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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;