projects
/
scpubgit/stemmatology.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
small conveniences
[scpubgit/stemmatology.git]
/
lib
/
Text
/
Tradition
/
Parser
/
Util.pm
diff --git
a/lib/Text/Tradition/Parser/Util.pm
b/lib/Text/Tradition/Parser/Util.pm
index
2cca6e8
..
9110655
100644
(file)
--- 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;