Added a libscan to supplement the default libscan.

diff --git a/Makefile.PL b/Makefile.PL
index 62046a7..0ca1a17 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -127,3 +127,17 @@ sub _message {
     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);
+}
+