Changeset 14175 for gsdl/trunk

Timestamp:

2007-06-13T13:26:29+12:00 (17 years ago)

Author:

qq6

Message:

Determine the name of the operating system, make the file extension .bdb for MAC, otherwise it's .ldb extension

File:

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

gsdl/trunk/perllib/util.pm

@@ -711 +711 @@
 # 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);
+    # To determine the name of the operating system, the variable $^O is a cheap alternative to pulling it out of the Config module;
+    # What we do here is, if it is a Macintosh machine (i.e. the Darwin operating system), regardless it is running on the IBM power-pc cpu or it is the x86 Intel-based chip with a power-pc emulator running on top of it, it requires the big-endian data format in the gdbm database file, we make the file extension .bdb; otherwise it's .ldb extension.
+        
+    #return 0 if $^O =~ /^darwin$/i;
+    return 0 if $ENV{'GSDLOS'} =~ /^darwin$/i;
+    return (ord(substr(pack("s",1), 0, 1)) == 1);
 }