* update acrostic bits

diff --git a/anamang b/anamang
index 5ed37612fe3bf9b12671445adfa3b98e3c7217cf..54cd32b98a916284f94f11347d5dca9c58b86d62 100755 (executable)
--- a/anamang
+++ b/anamang
@@ -139,7 +139,7 @@ if ($options{acrostic}) {
            next if $let[$p] eq '?';
            $pos{$p} = $let[$p];
        }
-       my @allowable_words = find_allowable_words($database,\%pos,$length);
+       my @allowable_words = find_allowable_words(database => $database,position => \%pos,length => $length);
        if (@allowable_words > 200 and not $options{show_all}) {
            print STDERR "Only showing 200 of the " . @allowable_words . " possible words\n";
            @allowable_words = @allowable_words[0..199];