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

Even kill off  s too.

Browse Source
This commit is contained in:
Chris 2012-08-01 13:46:17 +01:00
parent e47d3abfac
commit 8347fe5e48
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/\s//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) {