From 91aa12902af49cbb6a5519ca713eb56baaaf4aa6 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 14 Sep 2000 17:11:39 +0000 Subject: *** empty log message *** --- perl-install/printerdrake.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 40fb9025f..50cd6171c 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -43,11 +43,13 @@ sub setup_local($$$) { } $printer->{DEVICE} = $port[0] if $port[0]; - $in and return if !$in->ask_from_entries_refH(_("Local Printer Device"), + if ($in) { + return if !$in->ask_from_entries_refH(_("Local Printer Device"), _("What device is your printer connected to (note that /dev/lp0 is equivalent to LPT1:)?\n") . (join "\n", @str), [ _("Printer Device") => {val => \$printer->{DEVICE}, list => \@port } ], - ); + ); + } #- make the DeviceURI from DEVICE. $printer->{DeviceURI} = ($printer->{DEVICE} =~ /usb/ ? "usb:" : "parallel:") . $printer->{DEVICE}; -- cgit v1.2.1