[perl.git] branch blead, updated. v5.25.10-32-g95e62f9f8d

[James Keenan]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/95e62f9f8dd60dc0c6b50e144c90d1640f899cd9?hp=0f9cb40cba19106bb8ef1437d9d4966f6e6d2d44>

- Log -----------------------------------------------------------------
commit 95e62f9f8dd60dc0c6b50e144c90d1640f899cd9
Author: James E Keenan <jkee...@cpan.org>
Date:   Thu Feb 23 08:24:16 2017 -0500

    Clean up temporary directories after testing.
    
    Signed-off-by: James E Keenan <jkee...@cpan.org>
-----------------------------------------------------------------------

Summary of changes:
 dist/threads/t/kill3.t | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/dist/threads/t/kill3.t b/dist/threads/t/kill3.t
index 15e3f1690f..53f846deec 100644
--- a/dist/threads/t/kill3.t
+++ b/dist/threads/t/kill3.t
@@ -11,6 +11,8 @@ BEGIN {
 }
 
 use ExtUtils::testlib;
+use File::Path ();
+use File::Spec;
 use Cwd;
 my $cwd = cwd();
 
@@ -35,8 +37,9 @@ BEGIN {
 {
     $SIG{'KILL'} = undef;
     chdir '/tmp';
-    mkdir "toberead$$";
-    chdir "toberead$$";
+    my $dir = File::Spec->catdir( '/tmp', "toberead$$" );
+    mkdir $dir;
+    chdir $dir;
     for ('a'..'e') {
         open my $THING, ">$_";
         close $THING or die "$_: $!";
@@ -69,13 +72,15 @@ BEGIN {
     }
     print($@ ? 'not ok' : 'ok');
 EOI
+    File::Path::rmtree($dir);
 }
 
 {
     $SIG{'KILL'} = undef;
     chdir '/tmp';
-    mkdir "shouldberead$$";
-    chdir "shouldberead$$";
+    my $dir = File::Spec->catdir( '/tmp', "shouldberead$$" );
+    mkdir $dir;
+    chdir $dir;
     for ('a'..'e') {
         open my $THING, ">$_";
         close $THING or die "$_: $!";
@@ -108,6 +113,7 @@ EOI
     }
     print($@ ? 'not ok' : 'ok');
 EOI
+    File::Path::rmtree($dir);
 }
 
 exit(0);

--
Perl5 Master Repository