tests/misc/mktemp.pl

25   my ($file, $file_or_dir) = @_;
27   my (undef, undef, $mode, undef) = stat $file
28    or die "$ME: failed to stat $file: $!\n";
31     -d $file or die "$ME: $file isn't a directory\n";
32     -x $file or die "$ME: $file isn't owner-searchable\n";
35     -f $file or die "$ME: $file isn't a regular file\n";
38   -r $file or die "$ME: $file isn't owner-readable\n";
39   -w $file or die "$ME: $file isn't owner-writable\n";
41     or die "$ME: $file doesn't have required permissions\n";
44     and do { rmdir $file or die "$ME: failed to rmdir $file: $!\n" };
46     and do { unlink $file or die "$ME: failed to unlink $file: $!\n" };