File tree Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -9,7 +9,7 @@ use File::Path ();
9
9
use POSIX " :sys_wait_h" ;
10
10
@CPAN::Distribution::ISA = qw( CPAN::InfoObj) ;
11
11
use vars qw( $VERSION) ;
12
- $VERSION = " 2.27_01 " ; # with cperl support
12
+ $VERSION = " 2.27_02 " ; # with cperl support
13
13
14
14
my $run_allow_installing_within_test = 1; # boolean; either in test or in install, there is no third option
15
15
# no prepare, because prepare is not a command on the shell command line
@@ -612,8 +612,9 @@ See also http://rt.cpan.org/Ticket/Display.html?id=38932\n");
612
612
}
613
613
}
614
614
$self -> {build_dir } = $packagedir ;
615
- $self -> safe_chdir($builddir );
616
- File::Path::rmtree(" tmp-$$ " );
615
+ $self -> safe_chdir(Cwd::abs_path($builddir ));
616
+ $self -> debug(" rmtree $builddir /tmp-$$ " ) if $CPAN::DEBUG ;
617
+ File::Path::rmtree(File::Spec-> catfile(Cwd::abs_path($builddir )," tmp-$$ " ));
617
618
618
619
$self -> safe_chdir($packagedir );
619
620
$self -> _signature_business();
You can’t perform that action at this time.
0 commit comments