From: Tara L Andrews <tla@mit.edu>
Date: Wed, 22 Feb 2012 20:09:52 +0000 (+0100)
Subject: make cmp_str a noop except for the tradition that needs it
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44a6e7af93c340e0cdec95f115d94702dc350e04;p=scpubgit%2Fstemmatology.git

make cmp_str a noop except for the tradition that needs it
---

diff --git a/lib/Text/Tradition/Parser/Util.pm b/lib/Text/Tradition/Parser/Util.pm
index 2cca6e8..9110655 100644
--- a/lib/Text/Tradition/Parser/Util.pm
+++ b/lib/Text/Tradition/Parser/Util.pm
@@ -141,6 +141,7 @@ Don't use this. Really.
 sub cmp_str {
     my( $reading ) = @_;
     my $word = $reading->text();
+    return $word unless $reading->collation->tradition->name =~ /158/;
     $word = lc( $word );
     $word =~ s/\W//g;
     $word =~ s/v/u/g;