Unescape escaped command substitutions

This commit is contained in:
Pragmatic Software 2017-12-04 20:12:27 -08:00
parent d902edd122
commit 0d0c12e798
1 changed files with 2 additions and 0 deletions

View File

@ -264,6 +264,8 @@ sub interpret {
return $result;
}
# unescape any escaped substituted commands
$arguments =~ s/\\&\{/&{/g if defined $arguments;
# parse out a pipe unless escaped
if (defined $arguments && $arguments =~ m/(?<!\\)\|\s*\{\s*[^}]+\}\s*$/) {