Author: kwilliams
Date: Mon Jan 29 19:28:48 2007
New Revision: 8753
Modified:
ExtUtils-ParseXS/trunk/Changes
ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm
Log:
Hardcode using $^H instead of 're' so we can compile re.xs
Modified: ExtUtils-ParseXS/trunk/Changes
==============================================================================
--- ExtUtils-ParseXS/trunk/Changes (original)
+++ ExtUtils-ParseXS/trunk/Changes Mon Jan 29 19:28:48 2007
@@ -1,5 +1,8 @@
Revision history for Perl extension ExtUtils::ParseXS.
+ - Changed 'use re "eval";' to 'BEGIN { $^H |= 0x00200000 };' so we
+ can compile re.xs in bleadperl. [Yves Orton]
+
- Fix an undefined-variable warning related to 'inout' parameter
processing.
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:28:48 2007
@@ -203,7 +203,7 @@
$size = qr[,\s* (??{ $bal }) ]x; # Third arg (to setpvn)
foreach my $key (keys %output_expr) {
- use re 'eval';
+ BEGIN { $^H |= 0x00200000 }; # Equivalent to: use re 'eval', but hardcoded
so we can compile re.xs
my ($t, $with_size, $arg, $sarg) =
($output_expr{$key} =~
