Use tempdir() cleanup flag
authorRicardo Mones <ricardo@mones.org>
Sun, 21 Feb 2021 21:13:17 +0000 (22:13 +0100)
committerRicardo Mones <ricardo@mones.org>
Sun, 21 Feb 2021 21:13:17 +0000 (22:13 +0100)
t/get_claws_version.t

index 4c9d10c21f2ce544cb45b6997361ce83cd5f4c6f..b3627dfaa065b3053f7b4a11270bcb219bea86f2 100644 (file)
@@ -9,7 +9,7 @@ require_ok ('Clawsker');
 my ($tempdir1, $claws1, $tempdir2, $claws2);
 
 BEGIN {
-    $tempdir1 = tempdir ();
+    $tempdir1 = tempdir (CLEANUP => 1);
     $tempdir2 = "$tempdir1/with space";
     $claws1 = "$tempdir1/claws-mail";
     $claws2 = "$tempdir2/claws-mail";
@@ -22,12 +22,6 @@ BEGIN {
     };
 }
 
-END {
-    qx {
-        rm -rf $tempdir1
-    };
-}
-
 local %ENV;
 $ENV{'PATH'} = $tempdir1;