Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Y'know, just kill *ALL* whitespace when doing length checks.

Browse Source
This commit is contained in:
Chris 2012-08-01 13:40:49 +01:00
parent 2d820491e6
commit e47d3abfac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Block.pm
View File

@ -291,7 +291,7 @@ sub validate_htmlarea {
my $scrubber = HTML::Scrubber -> new(); my $scrubber = HTML::Scrubber -> new();
my $nohtml = $scrubber -> scrub($text); my $nohtml = $scrubber -> scrub($text);
$nohtml =~ s/[\t\r\n]//g; # Kill some kinds of whitespace that may be left by scrubber that will confuse length checks. $nohtml =~ s/\s//g; # Kill some kinds of whitespace that may be left by scrubber that will confuse length checks.
# If the text area is empty, deal with the whole default/required malarky # If the text area is empty, deal with the whole default/required malarky
if(!defined($nohtml) || !$nohtml) { if(!defined($nohtml) || !$nohtml) {