diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-10 22:42:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-10 22:42:29 +0000 |
| commit | 672f6857cebebb4a4b84c7582c198e82837794f7 (patch) | |
| tree | b35d5e2026e81f0b4ebef7088bb2e1e90b2157de /ext/Time | |
| parent | 60ab6564e6f4db9f2ddb5b1b4a4b710777324510 (diff) | |
| download | perl-672f6857cebebb4a4b84c7582c198e82837794f7.tar.gz | |
&Time::HiRes::d_nanosleep was broken.
p4raw-id: //depot/perl@20131
Diffstat (limited to 'ext/Time')
| -rw-r--r-- | ext/Time/HiRes/Makefile.PL | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/Time/HiRes/Makefile.PL b/ext/Time/HiRes/Makefile.PL index 61f265935f..936f8e9d32 100644 --- a/ext/Time/HiRes/Makefile.PL +++ b/ext/Time/HiRes/Makefile.PL @@ -404,7 +404,11 @@ sub doConstants { foreach (qw (d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer d_nanosleep)) { my $macro = $_; - $macro =~ s/d_(.*)/HAS_\U$1/; + if ($macro eq 'd_nanosleep') { + $macro =~ s/d_(.*)/TIME_HIRES_\U$1/; + } else { + $macro =~ s/d_(.*)/HAS_\U$1/; + } push @names, {name => $_, macro => $macro, value => 1, default => ["IV", "0"]}; } |