--- test.pl	2002/02/12 12:41:31	1.4
+++ test.pl	2002/02/12 14:31:15	1.5
@@ -42,7 +42,8 @@
 # test sub
 
 sub test {
-	my $nr=$_[0];
+	my $a=shift @_;
+	my $nr=shift @_;
 
 	my @words = $a->alternatives(@test_words);
 	print 'not ' if (! @words);
@@ -64,7 +65,7 @@
 	my $ok = $a->load_affix($affix_file);
 	print 'not ' if (! $ok);
 	print "ok 3\n";
-	test(4);
+	test($a,4);
 
 } else {
 	print "ok 3 # - Skip, affix file '$affix_file' not found\n";
@@ -82,7 +83,7 @@
 	print 'not ' if (! $ok);
 	print "ok 6\n";
 
-	test(7);
+	test($a,7);
 } else {
 	print "ok 6 # - Skip, findaffix file '$findaffix_file' not found\n";
 	skip(7..8);