diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-21 16:26:04 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-22 06:22:53 -0800 |
| commit | d7879cf0b3199eb891fd6cdb551e1f6468d6f23d (patch) | |
| tree | c96b399abf8e6150b987ed580631b7368bccb318 /embed.h | |
| parent | 0724ad8708be1f65187c03974a56fff4ff9b48c8 (diff) | |
| download | perl-d7879cf0b3199eb891fd6cdb551e1f6468d6f23d.tar.gz | |
mro_package_moved must act on all effective names
See the test case in the commit. It passes in 5.8.x and blead (as of
this commit), but not 5.10-5.13.7.
In every case the name to be passed to mro_gather_and_rename is cre-
ated using an SV, so we might as well pass that instead of extracting
the char array and length from it.
That allows us to pass an AV instead, if there are multiple names to
take into account.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1636,7 +1636,7 @@ # endif # if defined(PERL_IN_MRO_C) #define mro_clean_isarev(a,b,c,d) S_mro_clean_isarev(aTHX_ a,b,c,d) -#define mro_gather_and_rename(a,b,c,d,e,f) S_mro_gather_and_rename(aTHX_ a,b,c,d,e,f) +#define mro_gather_and_rename(a,b,c,d,e) S_mro_gather_and_rename(aTHX_ a,b,c,d,e) #define mro_get_linear_isa_dfs(a,b) S_mro_get_linear_isa_dfs(aTHX_ a,b) # endif # if defined(PERL_IN_NUMERIC_C) |