This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_subst: remove a duplicate label
authorDavid Mitchell <davem@iabyn.com>
Fri, 4 Feb 2011 16:20:11 +0000 (16:20 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 6 Feb 2011 21:34:43 +0000 (21:34 +0000)
(both nope: and ret_no: labelled the same chunk of exit code)

pp_hot.c

index 021b50f..0a2194a 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2161,7 +2161,7 @@ PP(pp_subst)
        s = CALLREG_INTUIT_START(rx, TARG, s, strend, r_flags, NULL);
 
        if (!s)
-           goto nope;
+           goto ret_no;
        /* How to do it in subst? */
 /*     if ( (RX_EXTFLAGS(rx) & RXf_CHECK_ALL)
             && !PL_sawampersand
@@ -2414,7 +2414,6 @@ PP(pp_subst)
     }
     /* NOTREACHED */
 
-nope:
 ret_no:
     SPAGAIN;
     if (rpm->op_pmflags & PMf_NONDESTRUCT)