This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #111794] Make goto "" like goto ${\""}
[perl5.git] / pp_ctl.c
index 8f4c103..53f22f3 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3056,6 +3056,7 @@ PP(pp_goto)
        label       = cPVOP->op_pv;
         label_flags = (cPVOP->op_private & OPpPV_IS_UTF8) ? SVf_UTF8 : 0;
         label_len   = strlen(label);
+       if (!(do_dump || *label)) DIE(aTHX_ must_have_label);
     }
 
     PERL_ASYNC_CHECK();