+ unlink("$main::current_targetdir/$testfile");
+ unless (open my $fh, ">>", "$main::current_targetdir/$testfile") {
+ $stat = 1;
+ $msg = "Could not create $testfile: $!";
+ }
+ else {
+ close $fh;
+ unless (unlink("$main::current_targetdir/$testfile")) {
+ $stat = 1;
+ $msg = "Could not unlink file $testfile: $!";
+ }
+ }