freebsd-ports/textproc/p5-XML-RSS/files/patch-lib::XML::RSS.pm
2006-03-16 06:31:04 +00:00

10 lines
290 B
Perl

--- lib/XML/RSS.pm.orig Sun Mar 12 07:47:19 2006
+++ lib/XML/RSS.pm Thu Mar 16 10:37:37 2006
@@ -1799,6 +1799,7 @@
$text =~ s/&(?!(#[0-9]+|#x[0-9a-fA-F]+|\w+);)/&/g;
$text =~ s/&($entities);/$entity{$1}/g;
$text =~ s/</&lt;/g;
+ $text =~ s/>/&gt;/g;
return $text;
}