[Bast-commits] r6238 - ironman/plagger/lib/Plagger

[penfold at dev.catalyst.perl.org]

Author: penfold
Date: 2009-05-12 20:01:52 +0000 (Tue, 12 May 2009)
New Revision: 6238

Modified:
   ironman/plagger/lib/Plagger/Text.pm
Log:
Add link to deny()'ed tags.

Modified: ironman/plagger/lib/Plagger/Text.pm
===================================================================
--- ironman/plagger/lib/Plagger/Text.pm	2009-05-12 19:49:38 UTC (rev 6237)
+++ ironman/plagger/lib/Plagger/Text.pm	2009-05-12 20:01:52 UTC (rev 6238)
@@ -50,6 +50,7 @@
     my $self = shift;
     if ($self->is_html) {
         my $scrubber = HTML::Scrubber->new();
+        $scrubber->deny(qw/link/);
         $scrubber->style(1);
         $scrubber->script(1);
         return $scrubber->scrub($self->data);