summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2012-11-29 13:17:31 +0100
committerNicholas Clark <nick@ccl4.org>2012-12-14 09:22:40 +0100
commitb6c36746cf4d7234615a50c042561bf21daa51a7 (patch)
tree907603ccbf4be7eedc9d6d790e0752c37171d613 /perl.c
parent476161f6df66100c5d0786092b0320bded84031b (diff)
downloadperl-b6c36746cf4d7234615a50c042561bf21daa51a7.tar.gz
Remove the BeOS port.
BeOS was an operating system for personal computers developed by Be Inc, initially for their BeBox hardware. The OS Haiku was written as an open source replacement/continuation for BeOS, and its perl port is current and actively maintained. The BeOS port has not been updated since 2004.
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c11
1 files changed, 1 insertions, 10 deletions
diff --git a/perl.c b/perl.c
index a6f9c144bd..00c48bd6a7 100644
--- a/perl.c
+++ b/perl.c
@@ -58,10 +58,6 @@ union control_un {
#endif
-#ifdef __BEOS__
-# define HZ 1000000
-#endif
-
#ifndef HZ
# ifdef CLK_TCK
# define HZ CLK_TCK
@@ -325,10 +321,9 @@ perl_construct(pTHXx)
/* Use sysconf(_SC_CLK_TCK) if available, if not
* available or if the sysconf() fails, use the HZ.
- * BeOS has those, but returns the wrong value.
* The HZ if not originally defined has been by now
* been defined as CLK_TCK, if available. */
-#if defined(HAS_SYSCONF) && defined(_SC_CLK_TCK) && !defined(__BEOS__)
+#if defined(HAS_SYSCONF) && defined(_SC_CLK_TCK)
PL_clocktick = sysconf(_SC_CLK_TCK);
if (PL_clocktick <= 0)
#endif
@@ -3493,10 +3488,6 @@ S_minus_v(pTHX)
"\n\nOS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n"
"Version 5 port Copyright (c) 1994-2002, Andreas Kaiser, Ilya Zakharevich\n");
#endif
-#ifdef __BEOS__
- PerlIO_printf(PIO_stdout,
- "BeOS port Copyright Tom Spindler, 1997-1999\n");
-#endif
#ifdef OEMVS
PerlIO_printf(PIO_stdout,
"MVS (OS390) port by Mortice Kern Systems, 1997-1999\n");