From 9e15bb5fa4a3ebce2845c47cdc31034dd8c4d281 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Thu, 6 Feb 2003 17:03:22 +0000 Subject: Corrected call for "tryWrite" function. --- perl-install/printer/detect.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/printer') diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm index 5a4c3e1f8..0f7537a2f 100644 --- a/perl-install/printer/detect.pm +++ b/perl-install/printer/detect.pm @@ -3,6 +3,7 @@ package printer::detect; use strict; use common; use modules; +use detect_devices; sub local_detect { modules::get_probeall("usb-interface") and eval { modules::load("printer") }; @@ -53,7 +54,7 @@ sub whatParport() { } sub whatPrinterPort() { - grep { tryWrite($_) } qw(/dev/lp0 /dev/lp1 /dev/lp2 /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); + grep { detect_devices::tryWrite($_) } qw(/dev/lp0 /dev/lp1 /dev/lp2 /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); } sub whatUsbport() { -- cgit v1.2.1