From dc039cb73a2e1338205b3405167177daa8fe3168 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sun, 12 Jul 2015 21:00:10 +0300
Subject: Fix unescaped left brace warning

---
 NEWS                               | 2 ++
 lib/network/connection/wireless.pm | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/NEWS b/NEWS
index a313236..996b281 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- fix "unescaped left brace" warnings in perl-5.22+.
+
 2.22
 - draknfs, draksambashare:
   o fix handling UTF-8 directories (mga#13354)
diff --git a/lib/network/connection/wireless.pm b/lib/network/connection/wireless.pm
index b56279b..3e28516 100644
--- a/lib/network/connection/wireless.pm
+++ b/lib/network/connection/wireless.pm
@@ -978,7 +978,7 @@ sub wpa_supplicant_read_conf() {
                 push @conf, $network;
                 undef $network;
             }
-        } elsif (/^\s*network={/) {
+        } elsif (/^\s*network=\{/) {
             #- beginning of a new network block
             $network = {};
         }
@@ -1028,7 +1028,7 @@ sub wpa_supplicant_write_conf {
                 push @{$network->{entries}}, { comment => $_ };
             }
         } else {
-            if (/^\s*network={/) {
+            if (/^\s*network=\{/) {
                 #- beginning of a new network block
                 $network = {};
             } else {
-- 
cgit v1.2.1