mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

pp_ctl.c:pp_goto: Don’t repeat yourself

Browse Source 
No need to say DIE three times.
This commit is contained in:
Father Chrysostomos 2012-04-22 20:35:43 -07:00
parent 3532f34a66
commit 2fc690dc43
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pp_ctl.c
View File

@ -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();