cvs commit: qpsmtpd Makefile.PL
[email protected] (Matt Sergeant)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/09/05 10:28:38
Modified: . Makefile.PL
Log:
Make libscan work with subversion
Revision Changes Path
1.2 +7 -0 qpsmtpd/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /cvs/public/qpsmtpd/Makefile.PL,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- Makefile.PL 5 Sep 2004 16:32:23 -0000 1.1
+++ Makefile.PL 5 Sep 2004 17:28:38 -0000 1.2
@@ -11,3 +11,10 @@
AUTHOR => 'Ask Bjorn Hansen <[email protected]>',
EXE_FILES => [qw(qpsmtpd qpsmtpd-forkserver)],
);
+
+sub MY::libscan {
+ my $path = $_[1];
+ return '' if $path =~ /\B\.svn\b/;
+ return $path;
+}
+