Changeset 17714 for gsdl/trunk/perllib

Timestamp:

2008-11-05T16:52:51+13:00 (15 years ago)

Author:

ak19

Message:

No longer defaults to big endian for all Macintosh machines regardless of what endian they are. It has now gone back to returning exactly whatever endian the machine is.

File:

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

gsdl/trunk/perllib/util.pm

@@ -857 +857 @@
 
     #return 0 if $^O =~ /^darwin$/i;
-    return 0 if $ENV{'GSDLOS'} =~ /^darwin$/i;
+    #return 0 if $ENV{'GSDLOS'} =~ /^darwin$/i;
+    
+    # Going back to stating exactly whether the machine is little endian
+    # or big endian, without any special case for Macs. Since for rata it comes
+    # back with little endian and for shuttle with bigendian.
     return (ord(substr(pack("s",1), 0, 1)) == 1);
 }