Changeset 12559

Timestamp:

2006-08-25T13:30:12+12:00 (18 years ago)

Author:

davidb

Message:

Perl 5.8 under Windows does not by default support GDBM_File. Use of this
(with tie) has been commented out for now and changed back to the "old
fashioned" way using db2txt (through the unbuild module) to parse
the GDBM database.

File:

• trunk/gsdl/perllib/classify.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify.pm

@@ -32 +32 @@
 use gsprintf;
 
-use GDBM_File;
+#use GDBM_File;
+use unbuildutil;
 
 
@@ -227 +228 @@
     my ($fulldbname) = @_;
 
-    tie %gdbm_recs, 'GDBM_File', $fulldbname, &GDBM_WRCREAT, 0640;
+#   tie %gdbm_recs, 'GDBM_File', $fulldbname, &GDBM_WRCREAT, 0640;
+
+    my %gdbm_recs;
+    &unbuildutil::read_gdbm($fulldbname,\%gdbm_recs);
+
 
     # dig out top level doc sections
@@ -259 +264 @@
     }    
 
-    untie %gdbm_recs;
+#    untie %gdbm_recs;
 
     return \@all_docs;