From 3afc989d94e926ec6120a8b4412e667ee3f859f2 Mon Sep 17 00:00:00 2001
From: Andy Lester <andy@petdance.com>
Date: Mon, 2 Jun 2008 15:53:02 +0000
Subject: [PATCH] getting read for 2.04

---
 Changes                |  4 ++
 Makefile.PL            | 87 +++++++++++++++++++++++++++++++++++-------
 lib/HTML/Lint/HTML4.pm |  2 +-
 tags                   | 74 +++++++++++++++++++++++++++++++++++
 4 files changed, 153 insertions(+), 14 deletions(-)
 create mode 100644 tags

diff --git a/Changes b/Changes
index 5ff00ee..c2ab5f8 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history HTML::Lint and Test::HTML::Lint.
 
+2.04    Mon Jun  2 10:47:11 CDT 2008
+        [FIXES]
+        <textarea> now knows about the wrap attribute.
+
 2.02    Thu Nov  3 11:49:18 CST 2005
         [ENHANCEMENTS]
         * The warnings for missing ALT and HEIGHT/WIDTH on your images
diff --git a/Makefile.PL b/Makefile.PL
index 10c0635..1da4a26 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,14 +1,6 @@
 use strict;
-use ExtUtils::MakeMaker;
-use File::Find;
-use 5.6.0;
-
-find( \&filecheck, "." );
-
-sub filecheck {
-    unlink if /~$/;     # Remove any vi backup files
-    die "Aborting: Swapfile $_ found" if /\.swp$/;
-}
+use ExtUtils::MakeMaker qw( WriteMakefile );
+use 5.006001;
 
 eval { require LWP::Simple; };
 
@@ -21,7 +13,7 @@ NOTE: It seems that you don't have LWP::Simple installed.
 EOF
 }
 
-&WriteMakefile(
+my %parms = (
     NAME            => 'HTML::Lint',
     DISTNAME        => 'HTML-Lint',
     VERSION_FROM    => 'lib/HTML/Lint.pm',
@@ -38,9 +30,78 @@ EOF
     },
     EXE_FILES   => [qw(bin/weblint)],
     dist => {
-        COMPRESS => 'gzip -9f', 
+        COMPRESS => 'gzip -9f',
         SUFFIX => 'gz',
     },
     clean => { FILES => 'HTML-Lint-*' },
-    );
+);
+
+if ( $ExtUtils::MakeMaker::VERSION =~ /^\d\.\d\d$/ and $ExtUtils::MakeMaker::VERSION > 6.30 ) {
+    $parms{LICENSE} = 'perl';
+}
+
+if ( $ExtUtils::MakeMaker::VERSION ge '6.36' ) {
+    $parms{EXTRA_META} = <<EOF;
+resources:
+    homepage: http://petdance.com/ack/
+    bugtracker: http://code.google.com/p/ack/issues/list
+    license: http://dev.perl.org/licenses/
+    Repository: http://code.google.com/p/ack/source
+    MailingList: http://groups.google.com/group/ack-users
+EOF
+    }
+
+WriteMakefile( %parms );
+
+sub MY::postamble {
+    my $postamble = <<'MAKE_FRAG';
+
+.PHONY: tags critic
+
+tags:
+	ctags -f tags --recurse --totals \
+		--exclude=blib \
+		--exclude=.svn \
+		--exclude='*~' \
+		--languages=Perl --langmap=Perl:+.t \
+
+critic:
+	perlcritic -1 -q -profile perlcriticrc bin/weblint lib/
 
+PROF_ARGS = -Mblib ack --noenv --color --group -w foo ~/parrot
+
+timed: all
+	$(PERL) $(PROF_ARGS) >> /dev/null 2>&1
+
+dprof: all
+	$(PERL) -d:DProf $(PROF_ARGS) >> /dev/null 2>&1
+	dprofpp -R
+
+dproflb: all
+	$(PERL) -d:DProfLB $(PROF_ARGS) >> /dev/null 2>&1
+	dprofpp -R
+
+fastprof: all
+	$(PERL) -d:FastProf $(PROF_ARGS) >> /dev/null 2>&1
+	fprofpp
+
+profile: all
+	$(PERL) -d:Profile $(PROF_ARGS) >> /dev/null 2>&1
+	less prof.out
+
+profiler: all
+	$(PERL) -MDevel::Profiler $(PROF_ARGS) >> /dev/null 2>&1
+	dprofpp -R
+
+smallprof: all
+	$(PERL) -d:SmallProf $(PROF_ARGS) >> /dev/null 2>&1
+	sort -k 2nr,2 smallprof.out | less
+
+nytprof: all
+	$(PERL) -d:NYTProf $(PROF_ARGS) >> /dev/null 2>&1
+	nytprofhtml
+
+MAKE_FRAG
+
+    return $postamble;
+}
diff --git a/lib/HTML/Lint/HTML4.pm b/lib/HTML/Lint/HTML4.pm
index 2c6fd08..ea6fe28 100644
--- a/lib/HTML/Lint/HTML4.pm
+++ b/lib/HTML/Lint/HTML4.pm
@@ -111,7 +111,7 @@ our %isKnownAttribute = (
                     qw( abbr align axis bgcolor char charoff colspan headers height nowrap rowspan scope valign width ),
                     _ie_only( qw( background bordercolor bordercolordark bordercolorlight ) ),
                     ),
-    textarea    => _hash( @std, qw( accesskey cols disabled name onblur onchange onfocus onselect readonly rows tabindex ) ),
+    textarea    => _hash( @std, qw( accesskey cols disabled name onblur onchange onfocus onselect readonly rows tabindex wrap ) ),
     th          => _hash( @std,
                     qw( abbr align axis bgcolor char charoff colspan headers height nowrap rowspan scope valign width ),
                     _ie_only( qw( background bordercolor bordercolordark bordercolorlight ) ),
diff --git a/tags b/tags
new file mode 100644
index 0000000..caa54a6
--- /dev/null
+++ b/tags
@@ -0,0 +1,74 @@
+!_TAG_FILE_FORMAT	2	/extended format; --format=1 will not append ;" to lines/
+!_TAG_FILE_SORTED	1	/0=unsorted, 1=sorted, 2=foldcase/
+!_TAG_PROGRAM_AUTHOR	Darren Hiebert	/dhiebert@users.sourceforge.net/
+!_TAG_PROGRAM_NAME	Exuberant Ctags	//
+!_TAG_PROGRAM_URL	http://ctags.sourceforge.net	/official site/
+!_TAG_PROGRAM_VERSION	5.7	//
+CONSTRUCTOR_METHOD_ARRAYREF	t/20-error-types-skip.t	/^CONSTRUCTOR_METHOD_ARRAYREF: {$/;"	l
+CONSTRUCTOR_METHOD_SCALAR	t/20-error-types-skip.t	/^CONSTRUCTOR_METHOD_SCALAR: {$/;"	l
+FLUFF	lib/HTML/Lint/Error.pm	/^use constant FLUFF      => 3;$/;"	c
+FUNC_METHOD	t/20-error-types-skip.t	/^FUNC_METHOD: {$/;"	l
+HELPER	lib/HTML/Lint/Error.pm	/^use constant HELPER     => 2;$/;"	c
+HTML::Lint	lib/HTML/Lint.pm	/^package HTML::Lint;$/;"	p
+HTML::Lint::Error	lib/HTML/Lint/Error.pm	/^package HTML::Lint::Error;$/;"	p
+HTML::Lint::HTML4	lib/HTML/Lint/HTML4.pm	/^package HTML::Lint::HTML4;$/;"	p
+HTML::Lint::Parser	lib/HTML/Lint.pm	/^package HTML::Lint::Parser;$/;"	p
+MY	Makefile.PL	/^sub MY::postamble {$/;"	s
+MailingList	Makefile.PL	/^    MailingList: http:\/\/groups.google.com\/group\/ack-users$/;"	l
+NOTE	Makefile.PL	/^NOTE: It seems that you don't have LWP::Simple installed.$/;"	l
+Repository	Makefile.PL	/^    Repository: http:\/\/code.google.com\/p\/ack\/source$/;"	l
+STRUCTURE	lib/HTML/Lint/Error.pm	/^use constant STRUCTURE  => 1;$/;"	c
+TODO	t/10-test-html-lint.t	/^TODO: { # undef should fail$/;"	l
+Test::HTML::Lint	lib/Test/HTML/Lint.pm	/^package Test::HTML::Lint;$/;"	p
+_element_pop_back_to	lib/HTML/Lint.pm	/^sub _element_pop_back_to {$/;"	s
+_element_push	lib/HTML/Lint.pm	/^sub _element_push {$/;"	s
+_end	lib/HTML/Lint.pm	/^sub _end {$/;"	s
+_end_document	lib/HTML/Lint.pm	/^sub _end_document {$/;"	s
+_expand_error	lib/HTML/Lint/Error.pm	/^sub _expand_error {$/;"	s
+_find_tag_in_stack	lib/HTML/Lint.pm	/^sub _find_tag_in_stack {$/;"	s
+_hash	lib/HTML/Lint/HTML4.pm	/^sub _hash(@) { my %hash; $hash{$_} = 1 for @_; return \\%hash; }$/;"	s
+_ie_only	lib/HTML/Lint/HTML4.pm	/^sub _ie_only { return @_ };$/;"	s
+_in_context	lib/HTML/Lint.pm	/^sub _in_context {$/;"	s
+_ns_only	lib/HTML/Lint/HTML4.pm	/^sub _ns_only { return @_ };$/;"	s
+_parser	lib/HTML/Lint.pm	/^sub _parser {$/;"	s
+_start	lib/HTML/Lint.pm	/^sub _start {$/;"	s
+_start_document	lib/HTML/Lint.pm	/^sub _start_document {$/;"	s
+_start_img	lib/HTML/Lint.pm	/^sub _start_img {$/;"	s
+_text	lib/HTML/Lint.pm	/^sub _text {$/;"	s
+as_string	lib/HTML/Lint/Error.pm	/^sub as_string {$/;"	s
+bugtracker	Makefile.PL	/^    bugtracker: http:\/\/code.google.com\/p\/ack\/issues\/list$/;"	l
+checkit	t/LintTest.pl	/^sub checkit {$/;"	s
+clear_errors	lib/HTML/Lint.pm	/^sub clear_errors {$/;"	s
+column	lib/HTML/Lint/Error.pm	/^sub column      { my $self = shift; return $self->{_column}     || '' }$/;"	s
+critic	Makefile.PL	/^critic:$/;"	l
+dprof	Makefile.PL	/^dprof: all$/;"	l
+dproflb	Makefile.PL	/^dproflb: all$/;"	l
+eof	lib/HTML/Lint.pm	/^sub eof {$/;"	s
+errcode	lib/HTML/Lint/Error.pm	/^sub errcode     { my $self = shift; return $self->{_errcode}    || '' }$/;"	s
+errors	lib/HTML/Lint.pm	/^sub errors {$/;"	s
+errtext	lib/HTML/Lint/Error.pm	/^sub errtext     { my $self = shift; return $self->{_errtext}    || '' }$/;"	s
+fastprof	Makefile.PL	/^fastprof: all$/;"	l
+file	lib/HTML/Lint/Error.pm	/^sub file        { my $self = shift; return $self->{_file}       || '' }$/;"	s
+get_paragraphed_files	t/LintTest.pl	/^sub get_paragraphed_files {$/;"	s
+gripe	lib/HTML/Lint.pm	/^sub gripe {$/;"	s
+homepage	Makefile.PL	/^    homepage: http:\/\/petdance.com\/ack\/$/;"	l
+html_ok	lib/Test/HTML/Lint.pm	/^sub html_ok {$/;"	s
+import	lib/Test/HTML/Lint.pm	/^sub import {$/;"	s
+is_type	lib/HTML/Lint/Error.pm	/^sub is_type {$/;"	s
+license	Makefile.PL	/^    license: http:\/\/dev.perl.org\/licenses\/$/;"	l
+line	lib/HTML/Lint/Error.pm	/^sub line        { my $self = shift; return $self->{_line}       || '' }$/;"	s
+new	lib/HTML/Lint.pm	/^sub new {$/;"	s
+new	lib/HTML/Lint/Error.pm	/^sub new {$/;"	s
+newfile	lib/HTML/Lint.pm	/^sub newfile {$/;"	s
+nytprof	Makefile.PL	/^nytprof: all$/;"	l
+only_types	lib/HTML/Lint.pm	/^sub only_types {$/;"	s
+parse	lib/HTML/Lint.pm	/^sub parse {$/;"	s
+parse_file	lib/HTML/Lint.pm	/^sub parse_file {$/;"	s
+profile	Makefile.PL	/^profile: all$/;"	l
+profiler	Makefile.PL	/^profiler: all$/;"	l
+resources	Makefile.PL	/^resources:$/;"	l
+smallprof	Makefile.PL	/^smallprof: all$/;"	l
+tags	Makefile.PL	/^tags:$/;"	l
+timed	Makefile.PL	/^timed: all$/;"	l
+type	lib/HTML/Lint/Error.pm	/^sub type        { my $self = shift; return $self->{_type}       || '' }$/;"	s
+where	lib/HTML/Lint/Error.pm	/^sub where {$/;"	s