Changeset 27917

Timestamp:

2013-07-22T15:07:30+12:00 (11 years ago)

Author:

ak19

Message:

1. Reference to undefined variable. 2. Using FileUtils:: subroutines in place of deprecated utils:: ones.

File:

• main/trunk/greenstone2/perllib/basebuildproc.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/basebuildproc.pm

@@ -717 +717 @@
         foreach my $metadata_value (@metadata_values) {
         if ($bool eq '!') {
-            if ($options =~ /^i$/i) {
+            if (defined $options && $options =~ /^i$/i) {
             if ($metadata_value !~ /$exp/i) {$indexed_doc = 1; last;}
             } else {
@@ -723 +723 @@
             }
         } else {
-            if ($options =~ /^i$/i) {
+            if (defined $options && $options =~ /^i$/i) {
             if ($metadata_value =~ /$exp/i) {$indexed_doc = 1; last;}
             } else {