From bf62a183b298c017d41d64cb1f82510bbbe5dc00 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Sat, 12 Nov 2005 17:23:29 +0000
Subject: fix wireless network list using iwlist (`` returns a defined empty
 string if the command fails)

---
 perl-install/network/monitor.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/network/monitor.pm b/perl-install/network/monitor.pm
index e785ce469..a0a198128 100644
--- a/perl-install/network/monitor.pm
+++ b/perl-install/network/monitor.pm
@@ -28,7 +28,7 @@ sub list_wireless {
         $results = `/usr/sbin/wpa_cli scan_results 2>/dev/null`;
         $list = `/usr/sbin/wpa_cli list_networks 2>/dev/null`;
     }
-    if (defined $results && defined $list) {
+    if ($results && $list) {
         #- bssid / frequency / signal level / flags / ssid
         while ($results =~ /^((?:[0-9a-f]{2}:){5}[0-9a-f]{2})\t(\d+)\t(\d+)\t(.*?)\t(.*)$/mg) {
             #- wpa_supplicant may list the network two times, use ||=
-- 
cgit v1.2.1