Changeset 13813 for trunk/gsdl/perllib/mgppbuilder.pm

Timestamp:

2007-01-26T10:25:45+13:00 (17 years ago)

Author:

mdewsnip

Message:

mgpp_stem_idx now returns 2 instead of -1 when accent folding is disabled, to prevent problems with Perl on Windows.

File:

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

trunk/gsdl/perllib/mgppbuilder.pm

@@ -580 +580 @@
     if ($self->{'accentfold'}) {
         # the first time we do this, we test for accent folding enabled
-        if (system ("mgpp_stem_idx$exe -b 4096 -s4 -f \"$fullindexprefix\" $osextra") != 0) {
+        if (system ("mgpp_stem_idx$exe -b 4096 -s4 -f \"$fullindexprefix\" $osextra") == 2) {
         # accent folding has not been enabled in mgpp
         $accent_folding_enabled = 0;