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$/; } eval { require LWP::Simple; }; if ( $@ ) { print < 'HTML::Lint', DISTNAME => 'HTML-Lint', VERSION_FROM => 'lib/HTML/Lint.pm', ABSTRACT_FROM => 'lib/HTML/Lint.pm', PMLIBDIRS => [qw(lib/)], AUTHOR => 'Andy Lester ', PREREQ_PM => { 'Exporter' => 0, 'Test::More' => 0, 'Test::Builder' => 0, 'HTML::Parser' => '3.20', 'HTML::Tagset' => '3.03', 'File::Find' => 0, }, EXE_FILES => [qw(bin/weblint)], dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, clean => { FILES => 'HTML-Lint-*' }, );