Changeset 17714
- Timestamp:
- 2008-11-05T16:52:51+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r17572 r17714 857 857 858 858 #return 0 if $^O =~ /^darwin$/i; 859 return 0 if $ENV{'GSDLOS'} =~ /^darwin$/i; 859 #return 0 if $ENV{'GSDLOS'} =~ /^darwin$/i; 860 861 # Going back to stating exactly whether the machine is little endian 862 # or big endian, without any special case for Macs. Since for rata it comes 863 # back with little endian and for shuttle with bigendian. 860 864 return (ord(substr(pack("s",1), 0, 1)) == 1); 861 865 }
Note:
See TracChangeset
for help on using the changeset viewer.