From 82c7c18a4c0bd537a55cd9313afa9c5213006bb2 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 21 Jul 2013 02:20:26 -0400 Subject: rename this function --- Keyword.xs | 2 +- lib/Parse/Keyword.pm | 2 +- t/try/lib/Try.pm | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Keyword.xs b/Keyword.xs index bbc5d1b..6b60546 100644 --- a/Keyword.xs +++ b/Keyword.xs @@ -112,7 +112,7 @@ lex_peek(len) RETVAL void -lex_read_to(len) +lex_read(len) UV len CODE: PL_curcop = &PL_compiling; diff --git a/lib/Parse/Keyword.pm b/lib/Parse/Keyword.pm index ed183a3..b1ec347 100644 --- a/lib/Parse/Keyword.pm +++ b/lib/Parse/Keyword.pm @@ -29,7 +29,7 @@ sub import { my @helpers = qw( lex_peek lex_read_space - lex_read_to + lex_read parse_block ); 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; -- cgit v1.2.3-54-g00ecf