diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-01-09 20:58:11 +0100 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-01-09 19:37:06 +0000 |
| commit | 3f163fbbebeeaba9ded4fcd6c8371584f6da43d5 (patch) | |
| tree | 203e612275716a23bd851f55aee2f1002efca94a /ext | |
| parent | 0a0b43fa5b4c00dcd9c6c26dea968d2368fc6eae (diff) | |
| download | perl-3f163fbbebeeaba9ded4fcd6c8371584f6da43d5.tar.gz | |
Re: [PATCH] Exclude .svn and _darcs from IPC::SysV's Makefile.PL libscan
Message-ID: <20080109195811.2c5353e5@r2d2>
Make libscan() in IPC::SysV's Makefile.PL inherit EU::MM's
libscan() behaviour.
p4raw-id: //depot/perl@32926
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IPC/SysV/Makefile.PL | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/ext/IPC/SysV/Makefile.PL b/ext/IPC/SysV/Makefile.PL index ca921d7128..e3dfd073ee 100644 --- a/ext/IPC/SysV/Makefile.PL +++ b/ext/IPC/SysV/Makefile.PL @@ -76,9 +76,14 @@ sub configure sub MY::libscan { - my($self, $path) = @_; - return '' if $path =~ m! /(RCS|CVS|SCCS)/ | [~%]$ | \.(swp|orig|rej)$ !x; - $path; + package MY; + my($self, $path) = @_; + return $path if $self->SUPER::libscan($path) and + $path !~ m! [~%]$ + | \.(cache\.cm|swp|orig|rej)$ + | regen\.pl$ + !x; + return ''; } sub MY::postamble |