fix strip_tags
parent
1c730c090b
commit
da35b05be2
|
@ -129,7 +129,7 @@ sub strip_tags
|
||||||
local $_ = shift;
|
local $_ = shift;
|
||||||
my $ex = join '|', @{(shift || [])};
|
my $ex = join '|', @{(shift || [])};
|
||||||
$ex = "(?!/?($ex))" if $ex;
|
$ex = "(?!/?($ex))" if $ex;
|
||||||
s/<\/?$ex([a-z0-9_\-]+)[^<>]*>//gis;
|
s/<\/?$ex(!?[a-z0-9_\-]+)[^<>]*>//gis;
|
||||||
return $_;
|
return $_;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue