From 2c31185aaeddd8d6205d8bb9c7b17264ab69561b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 6 Dec 2002 16:44:56 +0000
Subject: be more perl_checker compliant

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

diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 88a6fc013..c621f16af 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -160,16 +160,15 @@ sub isdn_read_config {
 	    /(.*)=(.*)/;
 	    $isdn->{$1} = $2;
 	}
-	;
 	foreach my $f ('ioptions1B', 'ioptions2B') {
-	    foreach (cat_ ("$prefix/etc/ppp/$f")) {
+	    foreach (cat_("$prefix/etc/ppp/$f")) {
 		if (/^\s*name\s*(.*)/) {
 		    $isdn->{login} = $1;
 		    goto NEXT;
 		}
 	    }
 	}
-	NEXT :
+	NEXT:
 	foreach my $f ('isdn1B.conf', 'isdn2B.conf') {
 	    foreach (cat_ ("$prefix/etc/isdn/$f")) {
 		/^\s*EAZ\s*=\s*(.*)/ and $isdn->{phone_in} = $1;
-- 
cgit v1.2.1