Changeset 17714

Show
Ignore:
Timestamp:
05.11.2008 16:52:51 (11 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r17572 r17714  
    857857 
    858858    #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. 
    860864    return (ord(substr(pack("s",1), 0, 1)) == 1); 
    861865}