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);
 }