summaryrefslogtreecommitdiff
path: root/reentr.pl
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-05-09 14:06:11 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-05-09 14:06:11 +0000
commit1fdb6f840c15335baa3b41d0fe57a0671fb3b52b (patch)
treec6ad359cf4770c217a032f2e2bf00d7dcd27bd5e /reentr.pl
parentc8b93cf9f2f2c1db08bf1518baf55641ca08bb6a (diff)
downloadperl-1fdb6f840c15335baa3b41d0fe57a0671fb3b52b.tar.gz
metaconfig unit linting.
p4raw-id: //depot/perl@16525
Diffstat (limited to 'reentr.pl')
-rw-r--r--reentr.pl13
1 files changed, 8 insertions, 5 deletions
diff --git a/reentr.pl b/reentr.pl
index 13c0c2e479..5494f783a5 100644
--- a/reentr.pl
+++ b/reentr.pl
@@ -170,6 +170,13 @@ while (<DATA>) {
$prereqsh = "\$$prereqs $prereqh";
}
if ($opts{U}) {
+ my @prereq = qw(Inlibc Protochk Hasproto i_systypes usethreads);
+ push @prereq, $prereqs;
+ my $hdrs = "\$i_systypes sys/types.h define stdio.h $prereqsh";
+ if ($h eq 'time') {
+ $hdrs .= " \$i_systime sys/time.h";
+ push @prereq, 'i_systime';
+ }
print <<EOF;
?RCS: \$Id: d_${f}_r.U,v $
?RCS:
@@ -180,7 +187,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 i_systime $prereqs usethreads i_pthread
+?MAKE:d_${f}_r ${f}_r_proto: @prereq
?MAKE: -pick add \$@ %<
?S:d_${f}_r:
?S: This variable conditionally defines the HAS_${F}_R symbol,
@@ -209,10 +216,6 @@ eval \$inlibc
case "\$d_${f}_r" in
"\$define")
EOF
- my $hdrs = "\$i_systypes sys/types.h define stdio.h $prereqsh";
- if ($h eq 'time') {
- $hdrs .= " \$i_systime sys/time.h";
- }
print <<EOF;
hdrs="$hdrs"
case "\$d_${f}_r_proto:\$usethreads" in