From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 26 Dec 2001 20:15:32 +0000 (+0000)
Subject: BeOS has times() tick of 1000000, not CLK_TCK (1000)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9bc8746043cabd108ba5d1017e599bb1f1420871;p=p5sagit%2Fp5-mst-13.2.git

BeOS has times() tick of 1000000, not CLK_TCK (1000)
(this showed up in Benchmark.t)

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

diff --git a/pp_sys.c b/pp_sys.c
index 771f913..a8a60bb 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4312,6 +4312,10 @@ PP(pp_time)
    it's supported.    --AD  9/96.
 */
 
+#ifdef __BEOS__
+#  define HZ 1000000
+#endif
+
 #ifndef HZ
 #  ifdef CLK_TCK
 #    define HZ CLK_TCK