diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/try/lib/Try.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/try/lib/Try.pm b/t/try/lib/Try.pm index 20325aa..fc70082 100644 --- a/t/try/lib/Try.pm +++ b/t/try/lib/Try.pm @@ -24,7 +24,7 @@ sub try_parser { lex_read_space; - die "syntax error" unless lex_peek(1) eq '{'; + die "syntax error" unless lex_peek eq '{'; $try = parse_block; lex_read_space; @@ -32,7 +32,7 @@ sub try_parser { if (lex_peek(6) =~ /^catch\b/) { lex_read(5); lex_read_space; - die "syntax error" unless lex_peek(1) eq '{'; + die "syntax error" unless lex_peek eq '{'; $catch = parse_block; } @@ -41,7 +41,7 @@ sub try_parser { if (lex_peek(8) =~ /^finally\b/) { lex_read(7); lex_read_space; - die "syntax error" unless lex_peek(1) eq '{'; + die "syntax error" unless lex_peek eq '{'; $finally = parse_block; } |