Sanity check for BYTEORDER.

p4raw-id: //depot/perl@20914

1 files changed, 3 insertions, 2 deletions

diff --git a/perl.h b/perl.h
index cd735afa6f..1d740ec5dc 100644
--- a/perl.h
+++ b/perl.h
@@ -247,8 +247,9 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
 #define SOFT_CAST(type)	(type)
 #endif
 
-#ifndef BYTEORDER  /* Should never happen -- byteorder is in config.h */
-#   define BYTEORDER 0x1234
+/* Only these byteorders are really known and tested. */
+#if !(BYTEORDER == 0x1234 || BYTEORDER == 0x12345678 || BYTEORDER == 0x4321 || BYTEORDER == 0x87654321)
+#   error "UNKNOWN BYTEORDER!"
 #endif
 
 /* Overall memory policy? */