Changeset 27997

Timestamp:

2013-08-08T10:18:22+12:00 (11 years ago)

Author:

kjdon

Message:

need to check that perfect hash function was generated otherwise we can't continue and build the index

File:

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

main/trunk/greenstone2/perllib/mgppbuilder.pm

@@ -520 +520 @@
     
     my $hash_status = system ($hash_cmd);
-    print $outhandle "\nstatus from running hash_cmd: $hash_status\n" if ($self->{'verbosity'} >= 4);   
+    print $outhandle "\nstatus from running hash_cmd: $hash_status\n" if ($self->{'verbosity'} >= 4);
+    # check that perf hash was generated - if not, don't carry on
+    if ($hash_status !=0) {
+        print $outhandle "mgppbuilder::build_index - Couldn't create index $index as there are too few words in the index.\n";
+        print STDERR "<Warning name='NoIndex'/>\n</Stage>\n" if $self->{'gli'};
+        $self->{'notbuilt'}->{$index}=1;
+        return;
+        
+    }
     
     if (!-e "$mgpp_passes_exe" ||