File: javascript-comments_303619.patch

package info (click to toggle)
libhtml-clean-perl 0.8-12
  • links: PTS, VCS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch
  • size: 424 kB
  • ctags: 131
  • sloc: perl: 443; makefile: 2
file content (15 lines) | stat: -rw-r--r-- 360 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
--- a/lib/HTML/Clean.pm
+++ b/lib/HTML/Clean.pm
@@ -213,9 +213,10 @@ sub _jscomments {
   $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);
 }