summaryrefslogtreecommitdiff
path: root/reentr.pl
diff options
context:
space:
mode:
Diffstat (limited to 'reentr.pl')
-rw-r--r--reentr.pl11
1 files changed, 7 insertions, 4 deletions
diff --git a/reentr.pl b/reentr.pl
index 971fc58094..3d9a159923 100644
--- a/reentr.pl
+++ b/reentr.pl
@@ -172,7 +172,7 @@ while (<DATA>) {
?RCS:
?RCS: Generated by the reentr.pl from the Perl 5.8 distribution.
?RCS:
-?MAKE:d_${f}_r ${f}_r_proto: Inlibc Protochk Hasproto i_systypes $prereqh
+?MAKE:d_${f}_r ${f}_r_proto: Inlibc Protochk Hasproto i_systypes $prereqh usethreads
?MAKE: -pick add \$@ %<
?S:d_${f}_r:
?S: This variable conditionally defines the HAS_${F}_R symbol,
@@ -201,8 +201,8 @@ eval \$inlibc
case "\$d_${f}_r" in
"\$define")
hdrs="\$i_systypes sys/types.h define stdio.h \$i_${h} $h.h"
- case "\$d_${f}_r_proto" in
- '') d_${f}_r_proto=define
+ case "\$d_${f}_r_proto:\$usethreads" in
+ ":define") d_${f}_r_proto=define
set d_${f}_r_proto ${f}_r \$hdrs
eval \$hasproto ;;
*) ;;
@@ -241,7 +241,10 @@ EOF
echo "Prototype: \$try" ;;
esac
;;
- *) echo "You have ${f}_r but no prototype, not using it." >&4 ;;
+ *) case "\$usethreads" in
+ define) echo "${f}_r has no prototype, not using it." >&4 ;;
+ esac
+ ;;
esac
;;
*) ${f}_r_proto=0