diff options
Diffstat (limited to 'tests/CuTmpdir.pm')
| -rw-r--r-- | tests/CuTmpdir.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/CuTmpdir.pm b/tests/CuTmpdir.pm index 166e50bd8..1e5264086 100644 --- a/tests/CuTmpdir.pm +++ b/tests/CuTmpdir.pm @@ -1,7 +1,7 @@ package CuTmpdir; # create, then chdir into a temporary sub-directory -# Copyright (C) 2007-2008 Free Software Foundation, Inc. +# Copyright (C) 2007-2009 Free Software Foundation, Inc. # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -45,7 +45,11 @@ sub chmod_1 sub chmod_tree { - if (defined $dir && chdir $dir) + # When tempdir fails, it croaks, which leaves $dir undefined. + defined $dir + or return; + + if (chdir $dir) { # Perform the equivalent of find . -type d -print0|xargs -0 chmod -R 700. my $options = {untaint => 1, wanted => \&chmod_1}; |