fix strip_tags

databind
vitalif 2009-01-29 15:50:48 +00:00 committed by Vitaliy Filippov
parent 1c730c090b
commit da35b05be2
1 changed files with 1 additions and 1 deletions

View File

@ -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 $_;
}