diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 21:48:53 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 21:48:53 -0400 |
commit | b57b04d533ba5d71576359062a3470c22080f76d (patch) | |
tree | 41acee35d9a43f0be44c9d08336590f242d3f362 /gv.c | |
parent | 8c2b19724d117cecfa186d044abdbf766372c679 (diff) | |
download | perl-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.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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; |