Changeset 30431

Show
Ignore:
Timestamp:
26.03.2016 15:25:51 (4 years ago)
Author:
davidb
Message:

Changed the way 'append' is handled, to avoid having 'undefined' in @_ later on in optional args array

Files:
1 modified

Legend:

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

    r30370 r30431  
    123123    # No available existing connection 
    124124    if (!defined $infodb_file_handle || !$infodb_file_handle) { 
    125         $infodb_file_handle = $self->openWriteHandle($path, $append, @_); 
     125    push(@_,$append) if defined $append; 
     126        $infodb_file_handle = $self->openWriteHandle($path, @_); 
    126127    $self->registerConnectionIfPersistent($infodb_file_handle, $path, $append); 
    127128    }