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.

p4raw-id: //depot/perl@33392

diff --git a/lib/ExtUtils/ParseXS.pm b/lib/ExtUtils/ParseXS.pm
index e7e6aad..b8ce4a0 100644 (file)
--- a/lib/ExtUtils/ParseXS.pm
+++ b/lib/ExtUtils/ParseXS.pm
@@ -18,7 +18,7 @@ my(@XSStack); # Stack of conditionals and INCLUDEs
 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 @@ sub process_file {
   $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 @@ EOF
 #XS(XS_${Packid}_nil); /* prototype to pass -Wmissing-prototypes */
 #XS(XS_${Packid}_nil)
 #{
+#   dXSARGS;
 #   XSRETURN_EMPTY;
 #}
 #
@@ -1325,9 +1326,9 @@ sub FALLBACK_handler()
   
   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