diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/ParseXS.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/ExtUtils/ParseXS.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/ExtUtils/ParseXS.pm b/Master/tlpkg/tlperl/lib/ExtUtils/ParseXS.pm index 883d9059311..d50b5010cd0 100644 --- a/Master/tlpkg/tlperl/lib/ExtUtils/ParseXS.pm +++ b/Master/tlpkg/tlperl/lib/ExtUtils/ParseXS.pm @@ -11,7 +11,7 @@ use Symbol; our $VERSION; BEGIN { - $VERSION = '3.16'; + $VERSION = '3.18'; } use ExtUtils::ParseXS::Constants $VERSION; use ExtUtils::ParseXS::CountLines $VERSION; @@ -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. */ @@ -1766,7 +1768,7 @@ sub output_init { $argsref->{init}, $argsref->{printed_name} ); - my $arg = "ST(" . ($num - 1) . ")"; + my $arg = $num ? "ST(" . ($num - 1) . ")" : "/* not a parameter */"; if ( $init =~ /^=/ ) { if ($printed_name) { |