diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakroam | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index 6707bf001..9cb2641c4 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -190,12 +190,11 @@ sub UpdateAvailable() { print("Running iwlist\n"); open(my $LIST, "$IWList scan 2>/dev/null |") or die("Can't run iwlist"); @{$AvailableList->{data}} = (); - my ($mode, $wep, $signal); + my ($mode, $wep, $signal, $essid); local $_; while (<$LIST>) { if (/([^ ]+)([ \t]+)Scan completed :/) { $device = $1 } elsif (/([^ ]+)([ \t]+)No scan results/) { $device = $1 } - my $essid; if (/ESSID:"(\S*)"/) { $essid = $1; print("Found $essid.\n"); |