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/JDBM.pm

    r30355 r30370  
    3232use util;
    3333use FileUtils;
    34 # - OO inheritence
    35 use parent 'DBDrivers::70HyphenFormat';
     34use DBDrivers::70HyphenFormat;
    3635
    3736sub BEGIN
     
    4039        die("Error! Environment must be prepared by sourcing setup.bash\n");
    4140    }
     41    @DBDrivers::JDBM::ISA = ('DBDrivers::70HyphenFormat');
    4242}
    4343
     
    5858    # Massage paths for Cygwin. Away to run a java program, using a binary that
    5959    # is native to Windows, so need Windows directory and path separators
     60    # Note: this is done after the util::pathname_cat as that fuction can also
     61    # (incorrectly) change file separators.
    6062    if ($^O eq "cygwin") {
    6163    $classpath = `cygpath -wp "$classpath"`;
Note: See TracChangeset for help on using the changeset viewer.