X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=my_unac_string.pm;h=288e716187b474dc646ce13f71cca7f7b4db41ad;hb=f23c2077101da75ff16dc377aebc01819e40d4c9;hp=3c16afaec102f3b36e26c21da64d6f0d682887e7;hpb=863c1e3e82d2b9b5b309a8df57799ec0ab145d3f;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);