diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-12-31 12:48:55 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-01-01 04:29:44 +0000 |
| commit | 9de3b7c3f04d243540e2a381092bf0f918b7fe9e (patch) | |
| tree | 9aa0a79e6300d4e8bc7a18a1bd6088b755e29114 /utils/h2xs.PL | |
| parent | ba71d2f34429cc14f2087ae5566ca179023a24ae (diff) | |
| download | perl-9de3b7c3f04d243540e2a381092bf0f918b7fe9e.tar.gz | |
h2xs broken
Message-Id: <20011231174855.A29128@math.ohio-state.edu>
p4raw-id: //depot/perl@13995
Diffstat (limited to 'utils/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 1c7cf7816e..9b7584c9bb 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -546,7 +546,7 @@ my %options = ( '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( @path_h ){ } 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 @@ if( @path_h ){ 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 |