From 2578d12a1403dc84569782ef1290059d33317cab Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 3 Sep 2014 23:27:36 -0700 Subject: [PATCH] toke.c: Combine two identical chunks via goto --- toke.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/toke.c b/toke.c index 9c9731a..f6d75df 100644 --- a/toke.c +++ b/toke.c @@ -6583,11 +6583,7 @@ Perl_yylex(pTHX) if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && (tmp = intuit_method(s, lex ? NULL : sv, cv))) { - op_free(rv2cv_op); - if (tmp == METHOD && !PL_lex_allbrackets && - PL_lex_fakeeof > LEX_FAKEEOF_LOWLOGIC) - PL_lex_fakeeof = LEX_FAKEEOF_LOWLOGIC; - return REPORT(tmp); + goto method; } /* If not a declared subroutine, it's an indirect object. */ @@ -6665,6 +6661,7 @@ Perl_yylex(pTHX) if (tmp == 1 && !orig_keyword && (isIDFIRST_lazy_if(s,UTF) || *s == '$') && (tmp = intuit_method(s, lex ? NULL : sv, cv))) { + method: op_free(rv2cv_op); if (tmp == METHOD && !PL_lex_allbrackets && PL_lex_fakeeof > LEX_FAKEEOF_LOWLOGIC) -- 1.8.3.1