1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Index: libhtml-clean-perl/lib/HTML/Clean.pm
===================================================================
--- libhtml-clean-perl.orig/lib/HTML/Clean.pm 2008-03-07 10:33:57.000000000 +0200
+++ libhtml-clean-perl/lib/HTML/Clean.pm 2008-03-07 10:37:00.000000000 +0200
@@ -213,9 +213,10 @@
$js =~ s,\s+//.*?\n,\n,sig;
# insure javascript is hidden
-
if ($js =~ m,<!--,) {
- $js =~ s,</script>,// -->\n</script>,si;
+ unless ($js =~ m,(-->[\s\r\n]*</script>),i) {
+ $js =~ s,</script>,// -->\n</script>,si;
+ }
}
return($js);
}
|
