diff options
| author | Bo Borgerson <gigabo@gmail.com> | 2008-04-28 13:11:26 -0400 |
|---|---|---|
| committer | Jim Meyering <meyering@redhat.com> | 2008-04-28 19:29:15 +0200 |
| commit | eef629eea132fa3619f508102430ac8dd1de5372 (patch) | |
| tree | 1efcfb403243156aedc42d1fbbfa4fabf418aa55 | |
| parent | 2f55920ffc37474ac75eadfbe5d987eb0ea248cc (diff) | |
| download | coreutils-eef629eea132fa3619f508102430ac8dd1de5372.tar.xz | |
tests: don't chmod after a failed chdir in cleanup
* tests/CuTmpdir.pm (chmod_tree): Don't chmod if chdir failed.
Signed-off-by: Bo Borgerson <gigabo@gmail.com>
| -rw-r--r-- | tests/CuTmpdir.pm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/tests/CuTmpdir.pm b/tests/CuTmpdir.pm index 84312a039..e21306a57 100644 --- a/tests/CuTmpdir.pm +++ b/tests/CuTmpdir.pm @@ -45,11 +45,16 @@ sub chmod_1 sub chmod_tree { - chdir $dir - or warn "$ME: failed to chdir to $dir: $!\n"; - # Perform the equivalent of find . -type d -print0|xargs -0 chmod -R 700. - my $options = {untaint => 1, wanted => \&chmod_1}; - find ($options, '.'); + if (chdir $dir) + { + # Perform the equivalent of find . -type d -print0|xargs -0 chmod -R 700. + my $options = {untaint => 1, wanted => \&chmod_1}; + find ($options, '.'); + } + else + { + warn "$ME: failed to chdir to $dir: $!\n"; + } } sub import { |