[libhtml-scrubber-perl] 08/11: Stripped trailing # in examples

[Florian Schlichting]

This is an automated email from the git hooks/post-receive script.

fsfs pushed a commit to annotated tag release/0.09
in repository libhtml-scrubber-perl.

commit 365b222a87ddd6f91b95c0a3919e81b86cfdaf91
Author: Nigel Metheringham <nigelm at cpan.org>
Date:   Fri Apr 1 16:10:45 2011 +0100

    Stripped trailing # in examples
    
    Resolves CPAN RT #24785
---
 lib/HTML/Scrubber.pm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/lib/HTML/Scrubber.pm b/lib/HTML/Scrubber.pm
index 17cdf63..68e69e1 100644
--- a/lib/HTML/Scrubber.pm
+++ b/lib/HTML/Scrubber.pm
@@ -598,9 +598,9 @@ the default attribute rule is applied.
     #!/usr/bin/perl -w
     use HTML::Scrubber;
     use strict;
-                                                                            #
+
     my @allow = qw[ br hr b a ];
-                                                                            #
+
     my @rules = (
         script => 0,
         img => {
@@ -609,7 +609,7 @@ the default attribute rule is applied.
             '*' => 0,                 # deny all other attributes
         },
     );
-                                                                            #
+
     my @default = (
         0   =>    # default rule, deny all tags
         {
@@ -644,13 +644,13 @@ the default attribute rule is applied.
             'type'        => 0,
         }
     );
-                                                                            #
+
     my $scrubber = HTML::Scrubber->new();
     $scrubber->allow( @allow );
     $scrubber->rules( @rules ); # key/value pairs
     $scrubber->default( @default );
     $scrubber->comment(1); # 1 allow, 0 deny
-                                                                            #
+
     ## preferred way to create the same object
     $scrubber = HTML::Scrubber->new(
         allow   => \@allow,
@@ -659,9 +659,9 @@ the default attribute rule is applied.
         comment => 1,
         process => 0,
     );
-                                                                            #
+
     require Data::Dumper,die Data::Dumper::Dumper($scrubber) if @ARGV;
-                                                                            #
+
     my $it = q[
         <?php   echo(" EVIL EVIL EVIL "); ?>    <!-- asdf -->
         <hr>
@@ -675,7 +675,7 @@ the default attribute rule is applied.
             </A>
         </A> <br>
     ];
-                                                                            #
+
     print "#original text",$/, $it, $/;
     print
         "#scrubbed text (default ",
@@ -688,10 +688,10 @@ the default attribute rule is applied.
         $/,
         $scrubber->scrub($it),
         $/;
-                                                                            #
+
     $scrubber->default(1); # allow all tags by default
     $scrubber->comment(0); # deny comments
-                                                                            #
+
     print
         "#scrubbed text (default ",
         $scrubber->default(),
@@ -703,12 +703,12 @@ the default attribute rule is applied.
         $/,
         $scrubber->scrub($it),
         $/;
-                                                                            #
+
     $scrubber->process(1);        # allow process instructions (dangerous)
     $default[0] = 1;              # allow all tags by default
     $default[1]->{'*'} = 0;       # deny all attributes by default
     $scrubber->default(@default); # set the default again
-                                                                            #
+
     print
         "#scrubbed text (default ",
         $scrubber->default(),

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libhtml-scrubber-perl.git