On Wed, Apr 03, 2002 at 04:33:00PM +0100, Nick Ing-Simmons wrote:
> I have just been explaining one of my Makefile.PLs to a collegue.
> It has:
>
> package MY;
> sub post_initialize
> {
> my ($self) = @_;
> foreach $name (grep /(~|\.bck|\.old)$/,keys %{$self->{PM}})
> {
> delete $self->{PM}->{$name};
> }
> return $self->SUPER::post_initialize;
> }
>
> That is boiler-plate stuff that ends up in nearly all the ones I write.
> (Sometimes it has .orig and .rej - depends if I often do patches
> to that place...)
>
> Which is just stopping various editor's backup files getting installed.
> IIRC some parts of MM do similar things already.
> If at least /~$/ and patch-oid extension got excluded from list by default
> far fewer overrides would been needed.
My time machine has was been gotten a good work out today...
1.1 (schwern 16-Jan-02): File::Find::find(sub {
1.1 (schwern 16-Jan-02): if (-d $_){
1.1 (schwern 16-Jan-02): if ($_ eq "CVS" || $_ eq "RCS"){
1.1 (schwern 16-Jan-02): $File::Find::prune = 1;
1.1 (schwern 16-Jan-02): }
1.1 (schwern 16-Jan-02): return;
1.1 (schwern 16-Jan-02): }
1.1 (schwern 16-Jan-02): return if /\#/;
1.8 (schwern 17-Feb-02): return if /~$/; # emacs temp files
1.8 (schwern 17-Feb-02):
That's the logic in ExtUtils::MM_Unix->init_dirscan as it currently
stands. So that skips emacs/vim backup and temp stuff. .bak, .old,
..orig, .rej, .bck may be safe to add.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
List context isn't dangerous. Misquoting Gibson is dangerous.
-- Ziggy
