From 152b0b998e117a4a79dd77d401df8cfc234574a5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Sat, 6 Nov 1999 09:10:11 +0000
Subject: *** empty log message ***

---
 perl-install/detect_devices.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 7119fbd84..d932b4922 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -210,6 +210,14 @@ sub whatPrinterPort() {
     grep { tryWrite($_)} qw(/dev/lp0 /dev/lp1 /dev/lp2);
 }
 
+sub hasModem($) {
+    my ($device) = @_;
+    my %probe;
+    local *F; open F, "pnp_serial $device |";
+    foreach (<F>) { $probe{$1} = $2 if /^\s+(.*?)\s*:\s*\"(.*)\"\s*$/ }
+    $probe{CLASS} =~ /Modem/i && $probe{DESCRIPTION};
+}
+
 #-######################################################################################
 #- Wonderful perl :(
 #-######################################################################################
-- 
cgit v1.2.1