diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm index f21ea9b47..1f77b48c3 100644 --- a/lib/WebGUI/Asset/Post.pm +++ b/lib/WebGUI/Asset/Post.pm @@ -1159,7 +1159,7 @@ sub postProcess { my %data = (); ($data{synopsis}, $data{content}) = $self->getSynopsisAndContent($self->get("synopsis"), $self->get("content")); my $spamStopWords = $self->session->config->get('spamStopWords'); - if (ref $spamStopWords eq 'ARRAY') { + if (ref $spamStopWords eq 'ARRAY' && @{ $spamStopWords }) { my $spamRegex = join('|',@{$spamStopWords}); $spamRegex =~ s/\s/\\ /g; if ($data{content} =~ m/$spamRegex/xmsi) { diff --git a/lib/WebGUI/Asset/WikiPage.pm b/lib/WebGUI/Asset/WikiPage.pm index 50cffbf82..cd8a46831 100644 --- a/lib/WebGUI/Asset/WikiPage.pm +++ b/lib/WebGUI/Asset/WikiPage.pm @@ -165,7 +165,7 @@ sub getAutoCommitWorkflowId { # delete spam my $spamStopWords = $self->session->config->get('spamStopWords'); - if (ref $spamStopWords eq 'ARRAY') { + if (ref $spamStopWords eq 'ARRAY' && @{ $spamStopWords }) { my $spamRegex = join('|',@{$spamStopWords}); $spamRegex =~ s/\s/\\ /g; if ($self->get('content') =~ m{$spamRegex}xmsi) { diff --git a/t/Asset/WikiPage.t b/t/Asset/WikiPage.t index 7c914b0ef..a1873dbc9 100644 --- a/t/Asset/WikiPage.t +++ b/t/Asset/WikiPage.t @@ -26,7 +26,7 @@ my $session = WebGUI::Test->session; my $node = WebGUI::Asset->getImportNode($session); my $versionTag = WebGUI::VersionTag->getWorking($session); $versionTag->set({name=>"Wiki Test"}); -addToCleanup($versionTag); +WebGUI::Test->addToCleanup($versionTag); my $wiki = $node->addChild({className=>'WebGUI::Asset::Wobject::WikiMaster', title => 'Wiki Test', url => 'wikitest'}); my @autoCommitCoda = (undef, undef, {skipAutoCommitWorkflows => 1, skipNotification => 1}); @@ -39,7 +39,7 @@ my $wikipage = $wiki->addChild( # Wikis create and autocommit a version tag when a child is added. Lets get the name so we can roll it back. my $secondVersionTag = WebGUI::VersionTag->new($session,$wikipage->get("tagId")); $secondVersionTag->commit; -addToCleanup($secondVersionTag ); +WebGUI::Test->addToCleanup($secondVersionTag ); # Test for sane object types isa_ok($wiki, 'WebGUI::Asset::Wobject::WikiMaster');