Posix character classes have to be used inside of regexp classes.
This commit is contained in:
parent
fa1c554b9d
commit
13ac9dc064
1 changed files with 1 additions and 1 deletions
|
|
@ -436,7 +436,7 @@ sub splitTag {
|
|||
|
||||
while (my $token = $p->get_tag($tag)) {
|
||||
my $text = $p->get_trimmed_text("/$tag");
|
||||
next if $text =~ /^([:space:]|[:^print:])*$/; # skip whitespace
|
||||
next if $text =~ /^([[:space:]]|[[:^print:]])*$/; # skip whitespace
|
||||
push @result, $text; # add the text between the tags to the result array
|
||||
last if @result == $count; # if we have a full count then quit
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue