Re: [Module-build-general] 4th (undocumented) argument to ExtUtils::Install::install
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <ke...@ma...> - 2003-02-09 18:09:22
|
On Monday, February 3, 2003, at 09:21 PM, Dave Rolsky wrote:
> There's a 4th, very important, but completely undocumented argument to
> ExtUtils::Install. This is a flag that tells it to unlink "shadowing"
> files, and is how the "perl Makefile.PL UNINST=1" feature is
> implemented.
>
> Knowing this flag exists makes implementing this feature in
> Module::Build
> very easy. It also makes me _VERY DAMN IRRITATED_, but I was _already_
> irritated about the general state of the legacy Perl build system, so
> that
> changes nothing ;)
So, I made this change in the M::B code, and it didn't seem to produce
the desired effect:
------------------------------------------------------------------------
--------
sub ACTION_install {
my ($self) = @_;
require ExtUtils::Install;
$self->depends_on('build');
ExtUtils::Install::install($self->install_map('blib'), 1, 0,
$self->{args}{uninst}||0);
}
sub ACTION_fakeinstall {
my ($self) = @_;
require ExtUtils::Install;
$self->depends_on('build');
ExtUtils::Install::install($self->install_map('blib'), 1, 1,
$self->{args}{uninst}||0);
}
------------------------------------------------------------------------
--------
Doing a 'Build install uninst=1' didn't unlink the ghosties. I don't
have time to check into it right now though, because I'm busily at work
trying to make some headway on my soon-due thesis. Any idea why this
wouldn't work?
-Ken
|