X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=my_unac_string.pm;fp=my_unac_string.pm;h=288e716187b474dc646ce13f71cca7f7b4db41ad;hb=5d556c7949052d85c0de3931d5c13cf4a678aecf;hp=3c16afaec102f3b36e26c21da64d6f0d682887e7;hpb=c4a2a04a821f843a0f3b94bd0db10ac40012dd3d;p=webpac diff --git a/my_unac_string.pm b/my_unac_string.pm index 3c16afa..288e716 100644 --- a/my_unac_string.pm +++ b/my_unac_string.pm @@ -4,7 +4,7 @@ use Text::Unaccent 1.02; # 1.01 won't compile on my platform, -sub my_unac_string($$) { +sub my_unac_string { my $charset = shift || return; my $string = shift || return; $string = unac_string($charset,$string);