Change 33511 by [EMAIL PROTECTED] on 2008/03/13 17:35:27
Integrate:
[ 33392]
Upgrade to ExtUtils-ParseXS-2.19. There are several patches not
in the CPAN version, so a version bump to 2.19_01 is in the core.
Affected files ...
... //depot/maint-5.10/perl/lib/ExtUtils/ParseXS.pm#2 integrate
Differences ...
==== //depot/maint-5.10/perl/lib/ExtUtils/ParseXS.pm#2 (text) ====
Index: perl/lib/ExtUtils/ParseXS.pm
--- perl/lib/ExtUtils/ParseXS.pm#1~32694~ 2007-12-22 01:23:09.000000000
-0800
+++ perl/lib/ExtUtils/ParseXS.pm 2008-03-13 10:35:27.000000000 -0700
@@ -18,7 +18,7 @@
my($XSS_work_idx, $cpp_next_tmp);
use vars qw($VERSION);
-$VERSION = '2.18_02';
+$VERSION = '2.19_01';
use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re
$Overload $errors $Fallback
$cplusplus $hiertype $WantPrototypes $WantVersionChk $except
$WantLineNumbers
@@ -76,7 +76,7 @@
$proto_re = "[" . quotemeta('\$%&*@;[]') . "]" ;
$Overload = 0;
$errors = 0;
- $Fallback = 'PL_sv_undef';
+ $Fallback = '&PL_sv_undef';
# Most of the 1500 lines below uses these globals. We'll have to
# clean this up sometime, probably. For now, we just pull them out
@@ -903,6 +903,7 @@
#XS(XS_${Packid}_nil); /* prototype to pass -Wmissing-prototypes */
#XS(XS_${Packid}_nil)
#{
+# dXSARGS;
# XSRETURN_EMPTY;
#}
#
@@ -1325,9 +1326,9 @@
TrimWhitespace($_) ;
my %map = (
- TRUE => "PL_sv_yes", 1 => "PL_sv_yes",
- FALSE => "PL_sv_no", 0 => "PL_sv_no",
- UNDEF => "PL_sv_undef",
+ TRUE => "&PL_sv_yes", 1 => "&PL_sv_yes",
+ FALSE => "&PL_sv_no", 0 => "&PL_sv_no",
+ UNDEF => "&PL_sv_undef",
) ;
# check for valid FALLBACK value
End of Patch.
