Changeset 30431

Timestamp:

2016-03-26T15:25:51+13:00 (8 years ago)

Author:

davidb

Message:

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

File:

• main/trunk/greenstone2/perllib/DBDrivers/70HyphenFormat.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/DBDrivers/70HyphenFormat.pm

@@ -123 +123 @@
     # No available existing connection
     if (!defined $infodb_file_handle || !$infodb_file_handle) {
-        $infodb_file_handle = $self->openWriteHandle($path, $append, @_);
+    push(@_,$append) if defined $append;
+        $infodb_file_handle = $self->openWriteHandle($path, @_);
     $self->registerConnectionIfPersistent($infodb_file_handle, $path, $append);
     }