diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-21 02:20:26 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-21 02:20:26 -0400 |
commit | 82c7c18a4c0bd537a55cd9313afa9c5213006bb2 (patch) | |
tree | 97b85283f3d1af04f6eda40b59a6f713df271d78 /t | |
parent | a395a5656a81d6b44cd0b4d4b041a50d909c890c (diff) | |
download | parse-keyword-82c7c18a4c0bd537a55cd9313afa9c5213006bb2.tar.gz parse-keyword-82c7c18a4c0bd537a55cd9313afa9c5213006bb2.zip |
rename this function
Diffstat (limited to 't')
-rw-r--r-- | t/try/lib/Try.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/try/lib/Try.pm b/t/try/lib/Try.pm index 64e6148..20325aa 100644 --- a/t/try/lib/Try.pm +++ b/t/try/lib/Try.pm @@ -30,7 +30,7 @@ sub try_parser { lex_read_space; if (lex_peek(6) =~ /^catch\b/) { - lex_read_to(5); + lex_read(5); lex_read_space; die "syntax error" unless lex_peek(1) eq '{'; $catch = parse_block; @@ -39,7 +39,7 @@ sub try_parser { lex_read_space; if (lex_peek(8) =~ /^finally\b/) { - lex_read_to(7); + lex_read(7); lex_read_space; die "syntax error" unless lex_peek(1) eq '{'; $finally = parse_block; |