Make libscan work with subversion

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@305 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2004-09-05 17:28:38 +00:00
parent 5349ea845d
commit 703e539acc

View File

@ -11,3 +11,10 @@ WriteMakefile(
AUTHOR => 'Ask Bjorn Hansen <ask@develooper.com>',
EXE_FILES => [qw(qpsmtpd qpsmtpd-forkserver)],
);
sub MY::libscan {
my $path = $_[1];
return '' if $path =~ /\B\.svn\b/;
return $path;
}