From da35b05be2887db5721748b42811efbe95488b9a Mon Sep 17 00:00:00 2001
From: vitalif <vitalif@2be256b4-0725-11dc-8e68-8b2fc2fe2491>
Date: Thu, 29 Jan 2009 15:50:48 +0000
Subject: [PATCH] fix strip_tags

---
 VMX/Common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/VMX/Common.pm b/VMX/Common.pm
index a4f6077..de7ece9 100644
--- a/VMX/Common.pm
+++ b/VMX/Common.pm
@@ -129,7 +129,7 @@ sub strip_tags
     local $_ = shift;
     my $ex = join '|', @{(shift || [])};
     $ex = "(?!/?($ex))" if $ex;
-    s/<\/?$ex([a-z0-9_\-]+)[^<>]*>//gis;
+    s/<\/?$ex(!?[a-z0-9_\-]+)[^<>]*>//gis;
     return $_;
 }