From 2fc690dc433a2e019dc3dc5c703da58c44cbd64c Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 22 Apr 2012 20:35:43 -0700 Subject: [PATCH] =?UTF-8?q?pp=5Fctl.c:pp=5Fgoto:=20Don=E2=80=99t=20repeat?= =?UTF-8?q?=20yourself?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit No need to say DIE three times. --- pp_ctl.c | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/pp_ctl.c b/pp_ctl.c index 8025d58f47..3aa0204c14 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -3044,20 +3044,14 @@ PP(pp_goto) else { label = SvPV_const(sv, label_len); label_flags = SvUTF8(sv); - if (!(do_dump || label_len)) - DIE(aTHX_ must_have_label); } } - else if (PL_op->op_flags & OPf_SPECIAL) { - if (! do_dump) - DIE(aTHX_ must_have_label); - } - else { + else if (!(PL_op->op_flags & OPf_SPECIAL)) { label = cPVOP->op_pv; label_flags = (cPVOP->op_private & OPpPV_IS_UTF8) ? SVf_UTF8 : 0; label_len = strlen(label); - if (!(do_dump || label_len)) DIE(aTHX_ must_have_label); } + if (!(do_dump || label_len)) DIE(aTHX_ must_have_label); PERL_ASYNC_CHECK();