Changeset 86 for trunk/gsdl/perllib/util.pm

Timestamp:

1998-12-21T15:13:55+13:00 (25 years ago)

Author:

rjmcnab

Message:

Added a function to determine whether the current machine is big
or small endian.

File:

• trunk/gsdl/perllib/util.pm (modified) (1 diff)

trunk/gsdl/perllib/util.pm

@@ -356 +356 @@
 
 
+# test to see whether this is a big or little endian machine
+sub is_little_endian {
+    return (ord(substr(pack("s",1), 0, 1)) == 1);
+}
+
 
 1;