diff options
| author | pink-mist <andreas.guldstrand@gmail.com> | 2019-04-27 11:46:27 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-27 11:46:27 +0200 |
| commit | 7fb54a400f0801222e6d204598b6e3c0f6f713c1 (patch) | |
| tree | 0c57e43fef51109447e68f9c13c1852a662b825c | |
| parent | 47969cdee3490d3315013058534f1d1f065a312c (diff) | |
| parent | 11620bd477c530cab1ccc8814f6a27ecaf9aa540 (diff) | |
| download | sbotools-7fb54a400f0801222e6d204598b6e3c0f6f713c1.tar.xz | |
Merge pull request #78 from pedrormjunior/leftbrace
escape left brace after perl update
Closes #77.
Closes #75.
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib/Build.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 |