summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/main.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index 30c2ef8ea..3d78ebfbd 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -2379,8 +2379,10 @@ sub configure_hpoj {
# (kernel mode with "printer"/"usblp" module for USB).
run_program::rooted($::prefix,
"ptal-mlcd", "$bus:probe",
- "-device",
- $device, split(' ',$address_arg));
+ (($bus ne "par") ||
+ (!$address_arg) ?
+ ("-device", $device) : ()),
+ split(' ',$address_arg));
} else {
# Start ptal-mlcd daemon for user-mode USB devices
# (all LIDIL MF devices as HP PSC 1xxx and OfficeJet
@@ -2566,7 +2568,8 @@ init.version=2
# because ptal-mlcd currently does no globbing:
print $CONFIG "-device /dev/usb/lp0 /dev/usb/lp1 /dev/usb/lp2 /dev/usb/lp3 /dev/usb/lp4 /dev/usb/lp5 /dev/usb/lp6 /dev/usb/lp7 /dev/usb/lp8 /dev/usb/lp9 /dev/usb/lp10 /dev/usb/lp11 /dev/usb/lp12 /dev/usb/lp13 /dev/usb/lp14 /dev/usb/lp15";
} elsif ($bus eq "par") {
- print $CONFIG "$address_arg -device $device";
+ print $CONFIG "$address_arg" .
+ (!$address_arg ? " -device $device" : "");
}
print $CONFIG "\n" .
"\n" .