From: tla <tla@mit.edu>
Date: Tue, 13 Aug 2013 07:56:06 +0000 (+0200)
Subject: unlimited running on server
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b12ef011352ab0c42f305faf2e6a8c84d84b1873;p=scpubgit%2Fstemmatology.git

unlimited running on server
---

diff --git a/base/script/vectors.pl b/base/script/vectors.pl
index 717f90b..1d2e021 100755
--- a/base/script/vectors.pl
+++ b/base/script/vectors.pl
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use feature 'say';
-use lib '/Users/tla/Projects/cpanmods/Text-SenseClusters-1.03/lib';
+use lib '/home/tla/cpanmods/Text-SenseClusters-1.03/lib';
 use Text::SenseClusters::Simat;
 use Text::Tradition;
 use Text::WagnerFischer qw/distance/;
@@ -34,8 +34,6 @@ my ( $matrix ) = make_matrix( $t );
 foreach my $pair ( $c->relationships ) {
 	my $rel = $c->get_relationship( $pair );
 	my( $rx, $ry ) = map { $c->reading( $_ ) } sort @$pair;
-	next if $rx->rank > 100;
-	next if $ry->rank > 100;
 
 	say STDERR "Checking relationship $rx -- $ry, of type " . $rel->type;
 	my $matches = 0;
@@ -76,14 +74,12 @@ sub make_matrix {
 	my %analyzed;
 	my $rct = 0;
 	foreach my $rx ( $c->readings ) {
-		next if $rx->rank > 100;
 		next if $rx->is_meta();
 		# Have to compare each reading with each other, so do this only once
 		$analyzed{"$rx"} = 1;
 		$rct++;
 		say STDERR "Looking at reading $rct ( $rx )";
 		foreach my $ry ( $c->readings ) {
-			next if $ry->rank > 100;
 			next if $ry->is_meta();
 			next if $analyzed{"$ry"};