r46823 - in /branches/upstream/libhtml-stripscripts-perl/current: Changes META.yml StripScripts.pm t/10basic.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Fri Nov  6 02:13:31 2009
New Revision: 46823

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=46823
Log:
[svn-upgrade] Integrating new upstream version, libhtml-stripscripts-perl (1.05)

Modified:
    branches/upstream/libhtml-stripscripts-perl/current/Changes
    branches/upstream/libhtml-stripscripts-perl/current/META.yml
    branches/upstream/libhtml-stripscripts-perl/current/StripScripts.pm
    branches/upstream/libhtml-stripscripts-perl/current/t/10basic.t

Modified: branches/upstream/libhtml-stripscripts-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-stripscripts-perl/current/Changes?rev=46823&op=diff
==============================================================================
--- branches/upstream/libhtml-stripscripts-perl/current/Changes (original)
+++ branches/upstream/libhtml-stripscripts-perl/current/Changes Fri Nov  6 02:13:31 2009
@@ -1,3 +1,8 @@
+1.05   5 Nov 2009  Fixed bug where 'false' but valid content was being ignored,
+                   eg "<i>0</i>"  became "<i></i>"
+                   See bug https://rt.cpan.org/Public/Bug/Display.html?id=51116
+                   Thanks to Jim Laney for reporting it
+
 1.04  16 Nov 2007  Fixed bug where mailto links not working when
                    AllowHref enabled. (Thanks to Menno Blom - 'b10m').
 

Modified: branches/upstream/libhtml-stripscripts-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-stripscripts-perl/current/META.yml?rev=46823&op=diff
==============================================================================
--- branches/upstream/libhtml-stripscripts-perl/current/META.yml (original)
+++ branches/upstream/libhtml-stripscripts-perl/current/META.yml Fri Nov  6 02:13:31 2009
@@ -1,14 +1,14 @@
 --- #YAML:1.0
 name:                HTML-StripScripts
-version:             1.04
+version:             1.05
 abstract:            Strip scripting constructs out of HTML
 license:             perl
-generated_by:        ExtUtils::MakeMaker version 6.32
+author:              
+    - Nick Cleaton <nick at cleaton.net>, Clinton Gormley <clint at traveljury.com>
+generated_by:        ExtUtils::MakeMaker version 6.42
 distribution_type:   module
 requires:     
     Test::More:                    0
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
-    version: 1.2
-author:
-    - Nick Cleaton <nick at cleaton.net>, Clinton Gormley <clint at traveljury.com>
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: branches/upstream/libhtml-stripscripts-perl/current/StripScripts.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-stripscripts-perl/current/StripScripts.pm?rev=46823&op=diff
==============================================================================
--- branches/upstream/libhtml-stripscripts-perl/current/StripScripts.pm (original)
+++ branches/upstream/libhtml-stripscripts-perl/current/StripScripts.pm Fri Nov  6 02:13:31 2009
@@ -3,7 +3,7 @@
 use warnings FATAL => 'all';
 
 use vars qw($VERSION);
-$VERSION = '1.04';
+$VERSION = '1.05';
 
 =head1 NAME
 
@@ -513,7 +513,7 @@
     if ( my $required = $tag_filters->{required} ) {
         foreach my $key (@$required) {
             return 0
-                unless length( $filtered_attr{$key} || '' );
+                unless defined $filtered_attr{$key} && length($filtered_attr{$key});
         }
     }
 
@@ -826,7 +826,7 @@
         $self->output_start("<$tagname$filtered_attrs>");
     }
 
-    if ( $entry{content} ) {
+    if ( defined $entry{content} ) {
         $self->{_hssStack}[0]{CONTENT} .= $entry{content};
     }
 

Modified: branches/upstream/libhtml-stripscripts-perl/current/t/10basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-stripscripts-perl/current/t/10basic.t?rev=46823&op=diff
==============================================================================
--- branches/upstream/libhtml-stripscripts-perl/current/t/10basic.t (original)
+++ branches/upstream/libhtml-stripscripts-perl/current/t/10basic.t Fri Nov  6 02:13:31 2009
@@ -1,6 +1,6 @@
 
 use strict;
-use Test::More tests => 8;
+use Test::More tests => 9;
 
 BEGIN { $^W = 1 }
 
@@ -41,3 +41,9 @@
 $f->input_end_document;
 is( $f->filtered_document, '<img alt="foo foo" />foo', 'img alt' );
 
+$f->input_start_document;
+$f->input_start('<i>');
+$f->input_text('0');
+$f->input_end('</i>');
+$f->input_end_document;
+is ($f->filtered_document,'<i>0</i>', 'false but valid content');