From 67c8210a47e4bd4e5dfb607afc38272b81ca7e7a Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 21 Jul 2013 01:50:12 -0400 Subject: parse this a bit more accurately --- t/try/lib/Try.pm | 8 ++++---- 1 file 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 '{'; -- cgit v1.2.3-54-g00ecf