From 9b3d10be3d0d3479d5b361d68f8b0126af2c526e Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Thu, 21 Aug 2003 16:31:47 +0000
Subject: fix no winmodem message/behavior

---
 perl-install/network/modem.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index e7e1b509d..a291e6dcf 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -246,6 +246,8 @@ sub winmodemConfigure {
     my %relocations = (ltmodem => $in->do_pkgs->check_kernel_module_packages('ltmodem'));
     my $type;
     
+    $netc->{autodetect}{winmodem} or ($in->ask_warn(N("Warning"), N("You don't have any winmodem")) ? return 0 : $in->exit(0));
+
     foreach (keys %{$netc->{autodetect}{winmodem}}) {
 	/Hcf/ and $type = "hcfpcimodem";
 	/Hsf/ and $type = "hsflinmodem";
-- 
cgit v1.2.1