From: Tara L Andrews <tla@mit.edu>
Date: Thu, 9 Aug 2012 14:53:21 +0000 (+0200)
Subject: also have to propagate last in list -> first in list
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee97851979ecfca5326001d5cb473ff546c5da70;p=scpubgit%2Fstemmatology.git

also have to propagate last in list -> first in list
---

diff --git a/script/propagate_transitive.pl b/script/propagate_transitive.pl
index 22cfee8..6953395 100755
--- a/script/propagate_transitive.pl
+++ b/script/propagate_transitive.pl
@@ -17,6 +17,7 @@ my %TYPEVALUES = (
 	spelling => 2,
 	grammatical => 3,
 	lexical => 3,
+	punctuation => 4,
 	collated => 50,
 	);
 
@@ -82,6 +83,7 @@ foreach my $tinfo ( $dir->traditionlist() ) {
 sub propagate_rel {
 	my( $c, $type, @list ) = @_;
 	my $curr = shift @list;
+	push( @list, $curr ); # make sure we close the A -> B -> C -> A loop
 	while( @list ) {
 		foreach my $r ( @list ) {
 			next if $curr eq $r;