fix strip_tags
parent
1c730c090b
commit
da35b05be2
|
@ -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 $_;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue