Changeset 3244

Timestamp:

2002-07-08T17:59:24+12:00 (22 years ago)

Author:

jrm21

Message:

we no longer exit with an error if the suffix program failed to create
necessary files. If suffix returns non-zero we will still exit, but exiting
means the build failed.

File:

• trunk/gsdl/perllib/classify/phind.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/phind.pm

@@ -364 +364 @@
     &execute("suffix \"$phinddir\" $suffixmode $verbosity", $verbosity, $out);
 
+
+    # check that we generated some files. It's not necessarily an error if
+    # we didn't (execute() would have quit on error), but we can't go on.
+    my $phrasesfile=&util::filename_cat($self->{'phinddir'}, 'phrases');
+    if (! -r $phrasesfile) {
+    print $out "\nNo phrases found for phind classifier!\n";
+    return;
+    }
+
     # Create the phrase file and put phrase numbers in phind/phrases
     print $out "\nSorting and renumbering phrases for input to mgpp\n" if $verbosity;
@@ -589 +598 @@
     if ($status != 0) {
     print STDERR "phind - Error executing '$command': $!\n";
-    exit($status);
+    exit($status); # this causes the build to fail...
     }
 }