Skip to content

Commit

Permalink
getting read for 2.04
Browse files Browse the repository at this point in the history
  • Loading branch information
@petdance
petdance committed Jun 2, 2008
1 parent 43c0c1a commit 3afc989
Show file tree
Hide file tree
Showing 4 changed files with 153 additions and 14 deletions.
4 changes: 4 additions & 0 deletions Changes
View file
@@ -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
Expand Down
87 changes: 74 additions & 13 deletions Makefile.PL
View file
@@ -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; };

Expand All @@ -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',
Expand All @@ -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;
}
2 changes: 1 addition & 1 deletion lib/HTML/Lint/HTML4.pm
View file
Expand Up @@ -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 ) ),
Expand Down
74 changes: 74 additions & 0 deletions tags
View file
@@ -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

0 comments on commit 3afc989

Please sign in to comment.