Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/DBDrivers/GDBM.pm

    r30355 r30370  
    2929use strict;
    3030
     31# Libraries
     32use util;
     33use FileUtils;
     34use DBDrivers::70HyphenFormat;
     35
     36
    3137BEGIN
    3238{
     
    3440        die("Error! Environment not prepared. Have you sourced setup.bash?\n");
    3541    }
     42    @DBDrivers::GDBM::ISA = ('DBDrivers::70HyphenFormat');
    3643}
    37 
    38 # Libraries
    39 use util;
    40 use FileUtils;
    41 use parent 'DBDrivers::70HyphenFormat';
    4244
    4345
     
    5052    $self->{'default_file_extension'} = 'gdb';
    5153    # note: file separator agnostic
    52     $self->{'executable_path'} = $ENV{'GSDLHOME'} . '/bin/' . $ENV{'GSDLOS'};
     54    $self->{'executable_path'} = FileUtils::filenameConcatenate($ENV{'GSDLHOME'}, 'bin', $ENV{'GSDLOS'});
    5355    $self->{'read_executable'} = 'db2txt';
    5456    $self->{'keyread_executable'} = 'gdbmkeys';
Note: See TracChangeset for help on using the changeset viewer.