2 # create, then chdir into a temporary sub-directory
4 # Copyright (C) 2007 Free Software Foundation, Inc.
6 # This program is free software: you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation, either version 3 of the License, or
9 # (at your option) any later version.
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this program. If not, see <http://www.gnu.org/licenses/>.
25 our $ME = $0 || "<???>";
31 warn "$ME: skipping test: unsafe working directory name\n";
40 my $cwd = $@ ?
'.' : Cwd
::getcwd
();
41 $prefix = "$cwd/$prefix";
44 # Untaint for the upcoming mkdir.
45 $prefix =~ m!^([-+\@\w./]+)$!
49 $dir = File
::Temp
::tempdir
("$prefix.tmp-XXXX", CLEANUP
=> 1 );
51 or warn "$ME: failed to chdir to $dir: $!\n";
58 # Skip symlinks and non-directories.
68 or warn "$ME: failed to chdir to $dir: $!\n";
69 # Perform the equivalent of find . -type d -print0|xargs -0 chmod -R 700.
70 my $options = {untaint
=> 1, wanted
=> \
&wanted
};