diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-15 20:46:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-15 20:46:10 +0000 |
| commit | 09310450a71918297b6820cce6ca272eb7dad21c (patch) | |
| tree | 49159999d71a70d13d35a9b2178731edfab3a69e /reentr.pl | |
| parent | 2dc0455f0afe9db74cde399b98f5c0c6f15650bd (diff) | |
| download | perl-09310450a71918297b6820cce6ca272eb7dad21c.tar.gz | |
Doesn't make sense to test for protos if the
functions are not to be used (!= functions exist!)
This might be the key (well, a key) to the HP-UX
problems.
p4raw-id: //depot/perl@15249
Diffstat (limited to 'reentr.pl')
| -rw-r--r-- | reentr.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -295,7 +295,7 @@ EOF push @H, $h; my @h = grep { /$p/ } @{$seena{$f}}; if (@h) { - push @define, "#if (" . join(" || ", map { "${F}_R_PROTO == REENTRANT_PROTO_$_" } @h) . ")\n"; + push @define, "#if defined(HAS_${F}_R) && (" . join(" || ", map { "${F}_R_PROTO == REENTRANT_PROTO_$_" } @h) . ")\n"; push @define, <<EOF; # define $h |