Author: kwilliams
Date: Mon Jan 29 19:48:42 2007
New Revision: 8758
Modified:
ExtUtils-ParseXS/trunk/Changes
ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm
Log:
UNITCHECK stuff
Modified: ExtUtils-ParseXS/trunk/Changes
==============================================================================
--- ExtUtils-ParseXS/trunk/Changes (original)
+++ ExtUtils-ParseXS/trunk/Changes Mon Jan 29 19:48:42 2007
@@ -1,5 +1,8 @@
Revision history for Perl extension ExtUtils::ParseXS.
+ - Added some UNITCHECK stuff, which (I think) makes XS code able to
+ do UNITCHECK blocks. [Nicholas Clark]
+
- Changed 'use re "eval";' to 'BEGIN { $^H |= 0x00200000 };' so we
can compile re.xs in bleadperl. [Yves Orton]
Modified: ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm
==============================================================================
--- ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm (original)
+++ ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm Mon Jan 29 19:48:42 2007
@@ -980,6 +980,13 @@
print "\n /* End of Initialisation Section */\n\n" ;
}
+ if ($] >= 5.009) {
+ print <<'EOF';
+ if (PL_unitcheckav)
+ call_list(PL_scopestack_ix, PL_unitcheckav);
+EOF
+ }
+
print Q(<<"EOF");
# XSRETURN_YES;
#]]
