Author: Alexander Zangerl <az@debian.org>
Subject: fix for bug in LTM parser

diff -urNad libtm-perl-1.56~/lib/TM/LTM/Parser.pm libtm-perl-1.56/lib/TM/LTM/Parser.pm
--- libtm-perl-1.56~/lib/TM/LTM/Parser.pm	2011-03-05 10:39:32.000000000 +1000
+++ libtm-perl-1.56/lib/TM/LTM/Parser.pm	2011-03-05 10:45:48.035966323 +1000
@@ -157,9 +157,9 @@
 							 [ map { $_->[1] } @{$item[3]} ],               # ROLES
 							 [ map { $_->[0] } @{$item[3]} ],               # PLAYERS
 							 undef ]);
-			  $return = $a;
 #warn "reify ".Dumper $item[6];
 			  $store->internalize ($item[6]->[0], $a->[TM->LID]) if $item[6]->[0];
+			  $return = $a;
 		      }
 
                       assocroles : assocrole(s /,/)
@@ -290,6 +290,7 @@
     $self->{parser}->startrule (\$text, 1, $self->{store}, $TM::log, $implicits);
     $TM::log->logdie ( scalar __PACKAGE__ . ": Found unparseable '".substr($text,0,40)."....'" ) unless $text =~ /^\s*$/s;
 
+
     { # resolving implicit stuff
 	my $store     = $self->{store};
 
