diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-21 01:50:12 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-21 01:50:12 -0400 |
| commit | 67c8210a47e4bd4e5dfb607afc38272b81ca7e7a (patch) | |
| tree | ed62dd3f5ffa9f20da0365238c04a86645877a52 | |
| parent | 302dbb801d19d19260de25d29bf099f7e217b064 (diff) | |
| download | parse-keyword-67c8210a47e4bd4e5dfb607afc38272b81ca7e7a.tar.gz parse-keyword-67c8210a47e4bd4e5dfb607afc38272b81ca7e7a.zip | |
parse this a bit more accurately
| -rw-r--r-- | t/try/lib/Try.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/try/lib/Try.pm b/t/try/lib/Try.pm index 372f10e..6de5bf8 100644 --- a/t/try/lib/Try.pm +++ b/t/try/lib/Try.pm @@ -29,8 +29,8 @@ sub try_parser { lex_read_space; - ensure_linestr_len(5); - if (linestr =~ /^catch/) { + ensure_linestr_len(6); + if (linestr =~ /^catch\b/) { lex_read_to(5); lex_read_space; die "syntax error" unless lex_peek_unichar eq '{'; @@ -39,8 +39,8 @@ sub try_parser { lex_read_space; - ensure_linestr_len(7); - if (linestr =~ /^finally/) { + ensure_linestr_len(8); + if (linestr =~ /^finally\b/) { lex_read_to(7); lex_read_space; die "syntax error" unless lex_peek_unichar eq '{'; |