This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove x2p remnants
[perl5.git]
/
gv.c
diff --git
a/gv.c
b/gv.c
index
b4ad523
..
1ef1155
100644
(file)
--- 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));
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);
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. */
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:
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. */
case to_cv_amg:
/* FAIL safe */
return left; /* Delegate operation to standard mechanisms. */
- break;
+
default:
goto not_found;
}
default:
goto not_found;
}
@@
-3044,7
+3044,6
@@
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. */
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;
}
if (ocvp && (cv=ocvp[nomethod_amg])) { /* Call report method */
notfound = 1; lr = -1;