[rt.cpan.org #40202] ExtUtils::Install->install() should honor uninstall_shadows flag

[http://robin.smidsrod.no/ via RT]

Mon Oct 20 14:28:09 2008: Request 40202 was acted upon.
Transaction: Ticket created by http://robin.smidsrod.no/
       Queue: PAR-Dist
     Subject: ExtUtils::Install->install() should honor uninstall_shadows flag
   Broken in: 0.01, 0.03, 0.04, 0.05, 0.06, 0.07, 0.09, 0.10, 0.11, 0.12, 0.13, 
0.14, 0.15, 0.15_01, 0.16, 0.17, 0.18, 0.19, 0.20, 0.21, 0.22, 0.23, 0.24, 
0.25, 0.26, 0.27, 0.28, 0.29, 0.31, 0.32, 0.33, 0.34, 0.35, 0.36, 0.37, 0.38
    Severity: Important
       Owner: Nobody
  Requestors: [EMAIL PROTECTED]
      Status: new
 Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=40202 >


In line 430 of PAR/Dist.pm the last parameter to 
ExtUtils::Install::install() is hardcoded to 0. It would be nice if this
flag could be specified with an option.

Changing the line to something like this takes care of it for me:

my $uninstall_shadows=$args{'uninstall_shadows'} ? 1 : 0;
$rv = ExtUtils::Install::install($target, 1, 0, $uninstall_shadows);