From 8d62898c2bbb8d9039430f689a1387e2e201be0d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 11 Aug 2004 14:51:43 +0000 Subject: use each_index --- perl-install/standalone/drakroam | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index eab863caf..00a66425f 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -57,9 +57,7 @@ my %available_roaming_daemons = ( }, read_config => sub { my ($config) = @_; - my $line = 0; - foreach (cat_($config)) { - $line++; + each_index { if (/^#/) {} #ignore comments elsif (/^\n/) {} #ignore blank lines elsif (/([^ \t]+)([ \t]+)(.*)/) { @@ -80,8 +78,8 @@ my %available_roaming_daemons = ( else { $dhcp = 0 } &AddNet($essid, $mode, $channel, $key, $dhcp); } - else { die "Line $line of configuration file is not parseable.\n" } - } + else { die "Line $::i of configuration file is not parseable.\n" } + } cat_($config) }, write_config => sub { my ($config) = @_; -- cgit v1.2.1