modified: Text/group_alike_words.pl

trizen · Feb 9, 2017 · 45d8ee9 · 45d8ee9
1 parent 25f9f00
commit 45d8ee9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Text/group_alike_words.pl b/Text/group_alike_words.pl
@@ -106,7 +106,7 @@ sub leven {
             next if $diff > $opt{d};
 
             # Compute the Levenshtein distance
-            if (lev($words[$i], $words[$j]) <= $opt{d}) {
+            if (leven($words[$i], $words[$j]) <= $opt{d}) {
                 if (not exists $table{$i}) {
                     $table{$i} = [join('', @{$words[$i]})];
                 }