diff options
author | Father Chrysostomos <sprout@cpan.org> | 2010-10-11 10:10:06 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-11 10:10:06 -0700 |
commit | 6f86b615fa775fad6cc0c49f0615f38543ff5c19 (patch) | |
tree | 0e7d5f0d49cec273aac625aa606baf759f4d7a97 /proto.h | |
parent | 29912d932cee5589d4165d5eff62d0cc4f2c5195 (diff) | |
download | perl-6f86b615fa775fad6cc0c49f0615f38543ff5c19.tar.gz |
Allow mro_isa_changed_in to be called on nonexistent packages
This is necessary for an upcoming bug fix.
(For this bug:
@left::ISA = 'outer::inner';
@right::ISA = 'clone::inner';
*clone:: = \%outer::;
print left->isa('clone::inner'),"\n";
print right->isa('outer::inner'),"\n";
)
This commit actually replaces mro_isa_changed_in with
mro_isa_changed_in3. See the docs for it in the diff for mro.c.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -2244,11 +2244,10 @@ PERL_CALLCONV SV* Perl_mro_get_private_data(pTHX_ struct mro_meta *const smeta, #define PERL_ARGS_ASSERT_MRO_GET_PRIVATE_DATA \ assert(smeta); assert(which) -PERL_CALLCONV void Perl_mro_isa_changed_in(pTHX_ HV* stash) - __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT_MRO_ISA_CHANGED_IN \ - assert(stash) +/* PERL_CALLCONV void mro_isa_changed_in(pTHX_ HV* stash) + __attribute__nonnull__(pTHX_1); */ +PERL_CALLCONV void Perl_mro_isa_changed_in3(pTHX_ HV* stash, const char *stashname, STRLEN stashname_len); PERL_CALLCONV struct mro_meta* Perl_mro_meta_init(pTHX_ HV* stash) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_MRO_META_INIT \ |