Changeset 36587 for main/trunk/greenstone2/perllib/plugins/CSVPlugin.pm

Timestamp:

2022-09-07T17:36:06+12:00 (20 months ago)

Author:

davidb

Message:

Test first if defined, to avoid unassigned variable warning

File:

• main/trunk/greenstone2/perllib/plugins/CSVPlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/CSVPlugin.pm

@@ -107 +107 @@
     $self->{'metapass_srcdoc'} = {}; # which segments have valid metadata_srcdoc
 
-    if ($self->{'use_namespace_for_field_names'} =~ /^\s*$/) {
+    if ((defined $self->{'use_namespace_for_field_names'}) && ($self->{'use_namespace_for_field_names'} =~ m/^\s*$/)) {
     $self->{'use_namespace_for_field_names'} = undef;
     }