import HTML-StripScripts 1.03 from CPAN

git-cpan-module:   HTML-StripScripts
git-cpan-version:  1.03
git-cpan-authorid: DRTECH
git-cpan-file:     authors/id/D/DR/DRTECH/HTML-StripScripts-1.03.tar.gz

Changes

@@ -1,3 +1,6 @@
+1.03  22 Oct 2007  Altered some syntax in a test to make it work in earlier
+                   versions of Perl
+
 1.02  22 Oct 2007  Added the examples into the POD
 
 1.01  22 Oct 2007  Fixed the attribute regex to recognise attributes

META.yml

@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                HTML-StripScripts
-version:             1.02
+version:             1.03
 abstract:            Strip scripting constructs out of HTML
 license:             perl
 generated_by:        ExtUtils::MakeMaker version 6.32

StripScripts.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings FATAL => 'all';
 
 use vars qw($VERSION);
-$VERSION = '1.02';
+$VERSION = '1.03';
 
 =head1 NAME
 

t/60rules_tag.t

@@ -24,8 +24,8 @@ my %tags_default = ( 'undef'   => undef,
 
 my %results;
 
-foreach my $b qw(undef 0 1 sub hash tag_sub) {
-    foreach my $default qw(undef 0 1 sub hash tag_0 tag_1 tag_sub) {
+foreach my $b (qw(undef 0 1 sub hash tag_sub)) {
+    foreach my $default (qw(undef 0 1 sub hash tag_0 tag_1 tag_sub)) {
         my $test = "${b} :: ${default}";
         test_tag( $test, $tags_b{$b}, $tags_default{$default},
                   $results{$test} );