diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-05-22 22:46:05 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-23 00:56:11 -0700 |
| commit | 18c03d6f6871990315e784e4ee868ef32ee7bb71 (patch) | |
| tree | 42abcbce5e4c5a1758fbf1a369bfeb3e2824e1af /dist/ExtUtils-ParseXS | |
| parent | 6697815661d775deb113dbdbc2e6822d55d3522b (diff) | |
| download | perl-18c03d6f6871990315e784e4ee868ef32ee7bb71.tar.gz | |
ParseXS.pm: Only inc PL_amagic_generation before 5.9
Originally, overload would not oven be checked for if
amagic_generation was 0, so it was necessary to do
PL_amagic_generation++, in case this was the first class to have over-
loading. Ever since perl-5.8.0-87-g439cb1c, PL_amagic_generation++
has been unnecessary, since the boot code for version objects incre-
ments it. Furthermore, newXS was already doing PL_sub_generation++
before that, and now does mro_method_changed_in. The code for check-
ing the staleness of the overload tables has always checked
sub_generation (and, later, the stash-specific generation numbers).
Diffstat (limited to 'dist/ExtUtils-ParseXS')
| -rw-r--r-- | dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index 883d905931..b4999e0d0d 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -949,7 +949,9 @@ EOF print Q(<<"EOF") if ($self->{Overload}); # /* register the overloading (type 'A') magic */ +##if (PERL_REVISION == 5 && PERL_VERSION < 9) # PL_amagic_generation++; +##endif # /* The magic for overload gets a GV* via gv_fetchmeth as */ # /* mentioned above, and looks in the SV* slot of it for */ # /* the "fallback" status. */ |