Changeset 15713

Timestamp:

2008-05-27T12:54:40+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Tidied up the is_little_endian() function comments to remove unnecessary references to GDBM extensions.

File:

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

gsdl/trunk/perllib/util.pm

@@ -748 +748 @@
 
 # test to see whether this is a big or little endian machine
-sub is_little_endian {
-    # 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);
+sub is_little_endian
+{
+    # To determine the name of the operating system, the variable $^O is a cheap alternative to pulling it out of the Config module;
+    # If it is a Macintosh machine (i.e. the Darwin operating system), regardless if it's running on the IBM power-pc cpu or the x86 Intel-based chip with a power-pc emulator running on top of it, it's big-endian
+    # Otherwise, it's little endian
+
+    #return 0 if $^O =~ /^darwin$/i;
+    return 0 if $ENV{'GSDLOS'} =~ /^darwin$/i;
+    return (ord(substr(pack("s",1), 0, 1)) == 1);
 }