summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-06-13 21:48:53 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-06-13 21:48:53 -0400
commitb57b04d533ba5d71576359062a3470c22080f76d (patch)
tree41acee35d9a43f0be44c9d08336590f242d3f362 /gv.c
parent8c2b19724d117cecfa186d044abdbf766372c679 (diff)
downloadperl-b57b04d533ba5d71576359062a3470c22080f76d.tar.gz
Revert "Some low-hanging -Wunreachable-code fruits."
This reverts commit 8c2b19724d117cecfa186d044abdbf766372c679. I don't understand - smoke-me came back happy with three separate reports... oh well, some other time.
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/gv.c b/gv.c
index 1ef1155372..b4ad5231a2 100644
--- a/gv.c
+++ b/gv.c
@@ -352,7 +352,7 @@ Perl_gv_init_pvn(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, U32 flag
case SVt_PVIO:
Perl_croak(aTHX_ "Cannot convert a reference to %s to typeglob",
sv_reftype(has_constant, 0));
-
+ break;
default: NOOP;
}
SvRV_set(gv, NULL);
@@ -2969,7 +2969,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
case regexp_amg:
/* FAIL safe */
return NULL; /* Delegate operation to standard mechanisms. */
-
+ break;
case to_sv_amg:
case to_av_amg:
case to_hv_amg:
@@ -2977,7 +2977,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
case to_cv_amg:
/* FAIL safe */
return left; /* Delegate operation to standard mechanisms. */
-
+ break;
default:
goto not_found;
}
@@ -3044,6 +3044,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
case to_cv_amg:
/* FAIL safe */
return left; /* Delegate operation to standard mechanisms. */
+ break;
}
if (ocvp && (cv=ocvp[nomethod_amg])) { /* Call report method */
notfound = 1; lr = -1;