Changeset 30370 for main/trunk/greenstone2/perllib/DBDrivers/GDBMTXTGZ.pm

Timestamp:

2016-01-12T11:00:53+13:00 (8 years ago)

Author:

jmt12

Message:

Reverting these back to the older but better supported ISA approach to declaring inheritance. Not even sure why I used the new parent mechanism (aside from possibly copying from tutorial)... can I still blame baby brain after 10 months?

File:

• main/trunk/greenstone2/perllib/DBDrivers/GDBMTXTGZ.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/DBDrivers/GDBMTXTGZ.pm

@@ -32 +32 @@
 use util;
 use FileUtils;
-# - OO inheritence
-use parent 'DBDrivers::70HyphenFormat';
+use DBDrivers::70HyphenFormat;
+
+BEGIN
+{
+    @DBDrivers::GDBMTXTGZ::ISA = ('DBDrivers::70HyphenFormat');
+}
 
 
+## Constructor
 sub new
 {
@@ -43 +48 @@
     $self->{'default_file_extension'} = 'txt.gz';
     # note: file separator agnostic
-    $self->{'executable_path'} = $ENV{'GSDLHOME'} . '/bin/' . $ENV{'GSDLOS'};
+    $self->{'executable_path'} = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'}, 'bin', $ENV{'GSDLOS'});
     $self->{'read_executable'} = 'gzip --decompress --to-stdout';
     $self->{'keyread_executable'} = $self->{'read_executable'};