Sanity check for BYTEORDER.

p4raw-id: //depot/perl@20914

diff --git a/perl.h b/perl.h
index cd735af..1d740ec 100644 (file)
--- 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? */