| Subject: | [patch] fixes warning message on mod_perl startup |
Perl Version: 5.6.0 on.
I get this error when I "use HTML::CGIChecker;" under mod_perl
when I start my mod_perl server.
"my" variable $class masks earlier declaration in same scope at /usr/local/share/perl/5.8.3/HTML/CGIChecker.pm line 513.
The patch fixes it.
--- CGIChecker.pm.orig 2004-02-15 01:42:51.000000000 -0600
+++ CGIChecker.pm 2004-02-15 02:02:19.000000000 -0600
@@ -510,11 +510,10 @@
map ($_ = uc($_), @{$self->{'allowtags'}});
map ($_ = uc($_), @{$self->{'denytags'}});
- my $class;
- foreach $class (keys(%tagclasses)) {
- map ($_ = uc($_), @{$tagclasses{$class}});
+ foreach my $members (values %tagclasses) {
+ map ($_ = uc($_), @$members);
}
-
+
map ($_ = uc($_), @{$self->{'nonpairtags'}});
my $element;