summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakroam3
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");