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: bernhard+c...@lsmod.de
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
