Fix unescaped { in regex

This commit is contained in:
Pragmatic Software 2018-03-16 11:03:08 -07:00
parent 91354ad3f7
commit 712aed21b3
1 changed files with 2 additions and 2 deletions

View File

@ -300,8 +300,8 @@ $result =~ s/\s+/ /gm;
print "result: [$result]\n" if $debug;
if(not $has_main) {
$result =~ s/\s*int main\(void\) {//;
$result =~ s/\s*}\s*$//;
$result =~ s/\s*int main\(void\) \{//;
$result =~ s/\s*\}\s*$//;
}
$output = length $result ? $result : $nooutput;