'NAME' => __PACKAGE__,
'VERSION_FROM' => 'lib/SQL/Translator.pm',
'EXE_FILES' => [
- 'bin/sqlt-diagram.pl',
- 'bin/sqlt-dumper.pl',
- 'bin/sqlt-graph.pl',
- 'bin/sql_translator.pl',
+ 'bin/sqlt-diagram',
+ 'bin/sqlt-dumper',
+ 'bin/sqlt-graph',
+ 'bin/sqlt',
],
'PREREQ_PM' => \%PREREQ_PM,
'clean' => {
my $fmt = '%' . $size . 's';
sprintf $fmt => $message;
}
+
+package MY;
+use File::Basename qw(basename);
+
+sub libscan {
+ my ($self, $file) = @_;
+ my $bfile = basename($file);
+
+ return if $bfile =~ /^\.(?:cvs)?ignore$/;
+ return if $bfile =~ /\.swp$/;
+
+ return $self->SUPER::libscan($file);
+}
+