From: Darren Chamberlain <dlc@sevenroot.org>
Date: Fri, 17 Oct 2003 22:03:38 +0000 (+0000)
Subject: Added a libscan to supplement the default libscan.
X-Git-Tag: v0.04~44
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c406ab335ad7868c81e06c4788160565dba175d8;p=dbsrgits%2FSQL-Translator.git

Added a libscan to supplement the default libscan.
---

diff --git a/Makefile.PL b/Makefile.PL
index 62046a7..0ca1a17 100644
--- 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);
+}
+