From b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Mar 2012 19:52:33 +0000
Subject: perl_checker cleanups

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

(limited to 'lib/network/monitor.pm')

diff --git a/lib/network/monitor.pm b/lib/network/monitor.pm
index d8fb258..b1dc9ac 100644
--- a/lib/network/monitor.pm
+++ b/lib/network/monitor.pm
@@ -28,7 +28,7 @@ sub list_wireless {
     if (!$has_roaming && !$>) {
         $results = `$::prefix/usr/sbin/wpa_cli scan_results 2>/dev/null`;
         $list = `$::prefix/usr/sbin/wpa_cli list_networks 2>/dev/null`;
-        $_ =~ s/^Selected interface (.*)\n//g foreach $results, $list;
+        s/^Selected interface (.*)\n//g foreach $results, $list;
     }
     if ($results && $list) {
         #- bssid / frequency / signal level / flags / ssid
-- 
cgit v1.2.1