bug fix; should only apply rule when it applies lol

kscanne · Dec 14, 2019 · 5f25225 · 5f25225
1 parent 045a8bf
commit 5f25225
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ipa.pl b/ipa.pl
@@ -76,7 +76,7 @@ sub strip_suffixes {
 			my $repl = $rule->[0];
 			my $ans = $t;
 			$ans =~ s/$tomatch$/$repl/;
-			if (exists($ipa{$ans})) {
+			if (exists($ipa{$ans}) and $ipa{$ans} =~ m/$rule->[2]$/) {
 				$suffixrule = $rule;
 				return $ans;
 			}