[libhtml-scrubber-perl] 10/11: Changes and github README updates

[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 0622d651d7fda98bb82eaeedb155b05b24c41e14
Author: Nigel Metheringham <nigelm at cpan.org>
Date:   Fri Apr 1 16:35:32 2011 +0100

    Changes and github README updates
---
 Changes    |  6 ++++++
 README.pod | 24 ++++++++++++------------
 2 files changed, 18 insertions(+), 12 deletions(-)

diff --git a/Changes b/Changes
index 320ff64..b9853ff 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,12 @@ Revision history for Perl extension HTML::Scrubber.
 
 {{$NEXT}}
     - Basic conversion to Dist::Zilla/git
+    - Tidies to keep Perl::Critic happier
+    - Removed use of naked filehandles
+    - Reworked tests to not use predicable temp file name
+    - Collapsed duplicate code to a single version
+    - Various documentation tweaks
+    - Change of maintainer as PODMASTER cannot be contacted
 
 0.08  Thu Apr  1 14:14:38 2004
     - removed test which relied on stuff that changed in HTML-Parser-3.36
diff --git a/README.pod b/README.pod
index a00ed97..1c8719b 100644
--- a/README.pod
+++ b/README.pod
@@ -164,9 +164,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 => {
@@ -175,7 +175,7 @@ the default attribute rule is applied.
             '*' => 0,                 # deny all other attributes
         },
     );
-                                                                            #
+
     my @default = (
         0   =>    # default rule, deny all tags
         {
@@ -210,13 +210,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,
@@ -225,9 +225,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>
@@ -241,7 +241,7 @@ the default attribute rule is applied.
             </A>
         </A> <br>
     ];
-                                                                            #
+
     print "#original text",$/, $it, $/;
     print
         "#scrubbed text (default ",
@@ -254,10 +254,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(),
@@ -269,12 +269,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