From d328576bb582704c38319cbead36723fca6874af Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sat, 25 Jul 2015 15:37:17 +0300
Subject: Fix warnings/etc. on recent perls.

---
 gprintify | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'gprintify')

diff --git a/gprintify b/gprintify
index 925e4af..12dc936 100755
--- a/gprintify
+++ b/gprintify
@@ -47,10 +47,10 @@ my $var_pattern = qr/
         (?:
             \$[a-zA-Z0-9_]+            # simple variable name
             |
-            \${                        # protected variable name
+            \$\{                        # protected variable name
                 [a-zA-Z0-9_]+
-                (?:[#%]{1,2}[^}]+)?    # with optional expansion pattern
-            }
+                (?:[#%]{1,2}[^\}]+)?    # with optional expansion pattern
+            \}
         )
     )
     /x;
-- 
cgit v1.2.1