From 1c3ae3b43f687e96ab9deb0eb70041f44c70cb3f Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 17 Jan 2009 00:51:41 +0000
Subject: [PATCH]  * update acrostic bits

---
 anamang | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/anamang b/anamang
index 5ed3761..54cd32b 100755
--- 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];
-- 
2.39.2