From a419039b11d02b7ef2b7f894b199b245a7876303 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 30 Apr 2003 10:09:27 +0000
Subject: perl_checker compliance

---
 perl-install/network/isdn.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/network/isdn.pm')

diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 0028ecce7..b3da0ff16 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -159,8 +159,7 @@ sub isdn_read_config {
 	$isdn->{driver} = $c->{ippp0}{alias};
 	#- 'type' 'protocol' 'mem' 'io' 'io0' 'io1' 'irq'  'id'
 	foreach (split(' ', $c->{$isdn->{driver}}{options})) {
-	    /(.*)=(.*)/;
-	    $isdn->{$1} = $2;
+	    $isdn->{$1} = $2 if /(.*)=(.*)/;
 	}
 	foreach my $f ('ioptions1B', 'ioptions2B') {
 	    foreach (cat_("$prefix/etc/ppp/$f")) {
-- 
cgit v1.2.1