diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-21 11:45:35 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-21 11:47:50 -0400 |
| commit | b35d374f486c3dcb1b2ba8ed5909903a9b34fc5b (patch) | |
| tree | 6906fe19c24bb5cd89e9047e6f01b9478303e740 | |
| parent | b96d96f8332b9aa42ede436c645e7add2ffb4638 (diff) | |
| download | parse-keyword-b35d374f486c3dcb1b2ba8ed5909903a9b34fc5b.tar.gz parse-keyword-b35d374f486c3dcb1b2ba8ed5909903a9b34fc5b.zip | |
default these to 1
| -rw-r--r-- | Keyword.xs | 4 | ||||
| -rw-r--r-- | t/try/lib/Try.pm | 6 |
2 files changed, 5 insertions, 5 deletions
@@ -108,7 +108,7 @@ parse_block() RETVAL SV * -lex_peek(len) +lex_peek(len = 1) UV len CODE: PL_curcop = &PL_compiling; @@ -125,7 +125,7 @@ lex_peek(len) RETVAL void -lex_read(len) +lex_read(len = 1) UV len CODE: PL_curcop = &PL_compiling; 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; } |