Change 13995 by ams@lustre on 2002/01/01 04:29:44
Subject: [PATCH @13746] h2xs broken
From: Ilya Zakharevich <[EMAIL PROTECTED]>
Date: Mon, 31 Dec 2001 17:48:55 -0500
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/utils/h2xs.PL#73 edit
Differences ...
==== //depot/perl/utils/h2xs.PL#73 (text) ====
Index: perl/utils/h2xs.PL
--- perl/utils/h2xs.PL.~1~ Mon Dec 31 21:45:06 2001
+++ perl/utils/h2xs.PL Mon Dec 31 21:45:06 2001
@@ -546,7 +546,7 @@
'const-subs|s=s' => \$opt_s,
'default-type|t=s' => \$opt_t,
'version|v=s' => \$opt_v,
- 'autogen-xsubs|x=s' => \$opt_x,
+ 'autogen-xsubs|x' => \$opt_x,
'use-new-tests' => \$new_test,
'use-old-tests' => \$old_test
);
@@ -698,6 +698,7 @@
}
if ($found) {
$rel_path_h = $path_h;
+ $fullpath{$path_h} = $fullpath;
} else {
(my $epath = $module) =~ s,::,/,g;
$epath = File::Spec->catdir('ext', $epath) if -d 'ext';
@@ -729,7 +730,7 @@
s/\?\?</{/g; # | ??<| {|
s/\?\?>/}/g; # | ??>| }|
}
- if (/^[ \t]*#[ \t]*define\s+([\$\w]+)\b(?!\()\s*(?=[^" \t])(.*)/) {
+ if (/^[ \t]*#[ \t]*define\s+([\$\w]+)\b(?!\()\s*(?=[^"\s])(.*)/) {
my $def = $1;
my $rest = $2;
$rest =~ s!/\*.*?(\*/|\n)|//.*!!g; # Remove comments
End of Patch.
