diff options
-rwxr-xr-x | i18n-diff-auditor | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/i18n-diff-auditor b/i18n-diff-auditor index 43e1c10..42ebe00 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -144,9 +144,9 @@ sub semiparse ($) { Q => $q, V => $v}; } elsif (s{^$perlop_re|^\;}{}) { push @o, { T => 'op', E => $&, P => $& }; - } elsif (s/[[{(]//) { + } elsif (s/^[[{(]//) { push @o, { T => 'bra', E => $&, P => $& }; - } elsif (s/[]})]//) { + } elsif (s/^[]})]//) { push @o, { T => 'ket', E => $&, P => $& }; } elsif (s/^( [\$\@\%] )( \{ )//x) { push @o, { T => 'deref', E => $1, P => $1 }, |