Fixed HPOJ configuration when manually setting up a device.

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;