projects
/
webpac
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
added check for broken CDATA at beginning, fix also broken delimiters
[webpac]
/
my_unac_string.pm
diff --git
a/my_unac_string.pm
b/my_unac_string.pm
index
288e716
..
82d9a76
100644
(file)
--- 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;
}