use 5.005; use strict; use ExtUtils::MakeMaker; use File::Find; find( \&filecheck, "." ); sub filecheck { unlink if /~$/; # Remove any vi backup files die "Aborting: Swapfile $_ found" if /\.swp$/; } &WriteMakefile( NAME => 'MARC::Record', DISTNAME => 'MARC-Record', VERSION_FROM => 'lib/MARC/Record.pm', ABSTRACT_FROM => 'lib/MARC/Record.pm', PMLIBDIRS => [ qw( lib/ ) ], AUTHOR => 'Andy Lester ', PREREQ_PM => { 'Test::More' => 0, 'File::Spec' => 0, 'File::Find' => 0, 'Carp' => 0, }, EXE_FILES => [ qw( bin/marcdump bin/marclint ) ], dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, depend => { Makefile => '$(VERSION_FROM)' }, clean => { FILES => 'MARC-Record-*' }, );