X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=my_unac_string.pm;h=82d9a7606579888d2068d5eda03a96e1302174e4;hb=e4ace081b612b30ecb6c1f35e28b6f28c912e7c5;hp=288e716187b474dc646ce13f71cca7f7b4db41ad;hpb=5d556c7949052d85c0de3931d5c13cf4a678aecf;p=webpac

diff --git a/my_unac_string.pm b/my_unac_string.pm
index 288e716..82d9a76 100644
--- a/my_unac_string.pm
+++ b/my_unac_string.pm
@@ -9,6 +9,7 @@ sub my_unac_string {
 	my $string = shift || return;
 	$string = unac_string($charset,$string);
 	$string =~ tr/ðÐ/dD/;
+	$string =~ s#&(\w)(acute|cedil|circ|grave|ring|slash|tilde|uml);#$1#gi;
 	return $string;
 }