From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 17 Jan 2009 00:51:41 +0000 (+0000)
Subject:  * update acrostic bits
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;ds=sidebyside;h=1c3ae3b43f687e96ab9deb0eb70041f44c70cb3f;p=bin.git

 * update acrostic bits
---

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];