From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 Jul 2003 22:42:29 +0000 (+0000)
Subject: &Time::HiRes::d_nanosleep was broken.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=672f6857cebebb4a4b84c7582c198e82837794f7;p=p5sagit%2Fp5-mst-13.2.git

&Time::HiRes::d_nanosleep was broken.

p4raw-id: //depot/perl@20131
---

diff --git a/ext/Time/HiRes/Makefile.PL b/ext/Time/HiRes/Makefile.PL
index 61f2659..936f8e9 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"]};
 	}