[rt.cpan.org #81375] chdir without cc

Wed Nov 28 06:15:10 2012: Request 81375 was acted upon.
Transaction: Correspondence added by SISYPHUS
       Queue: Inline
     Subject: chdir without cc
   Broken in: 0.50
    Severity: Normal
       Owner: Nobody
  Requestors: [email protected]
      Status: open
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=81375 >


On Sat Nov 24 19:52:30 2012, SISYPHUS wrote:

> #################################
> sub compile {
>     my $o = shift;
> 
>     my $build_dir = $o->{API}{build_dir};
>     my $cwd = &cwd;
>     ($cwd) = $cwd =~ /(.*)/ if $o->UNTAINT;
> 
>     chdir $build_dir;
>     eval {
>     $o->call('makefile_pl', '"perl Makefile.PL"', 2);
>     $o->call('make', '"make"', 2);
>     $o->call('make_install', '"make install"', 2);
>     };
>     chdir $cwd;
>     die if $@;
>     $o->call('cleanup', 'Cleaning Up', 2);
> }
> #################################

I've just uploaded Inline-0.51_03 to CPAN.
It contains the (above) modified sub compile, along with an additional
test script (C/t/20eval.t) that's designed to check that it works as
expected.

Feel free to give this change a good prod and a poke ... and let me know
if it's inadequate in any way.

Cheers,
Rob