From 11620bd477c530cab1ccc8814f6a27ecaf9aa540 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pedro=20Ribeiro=20Mendes=20J=C3=BAnior?=
 <pedrormjunior@gmail.com>
Date: Sat, 6 Oct 2018 15:53:24 -0300
Subject: escape left brace after perl update (solving issue #75)

---
 SBO-Lib/lib/SBO/Lib/Build.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SBO-Lib/lib/SBO/Lib/Build.pm b/SBO-Lib/lib/SBO/Lib/Build.pm
index 767c523..f6911a9 100644
--- a/SBO-Lib/lib/SBO/Lib/Build.pm
+++ b/SBO-Lib/lib/SBO/Lib/Build.pm
@@ -241,7 +241,7 @@ sub get_dc_regex {
   # convert any instances of command substitution to [^-]+
   $line =~ s/\$\([^)]+\)/[^-]+/g;
   # convert any bash variables to [^-]+
-  $line =~ s/\$({|)[A-Za-z0-9_]+(}|)/[^-]+/g;
+  $line =~ s/\$(\{|)[A-Za-z0-9_]+(}|)/[^-]+/g;
   # get rid of anything excess at the end
   $line =~ s/\s+.*$//;
   # fix .?z* at the end
-- 
cgit v1.2.3