summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorRalf Wildenhues <Ralf.Wildenhues@gmx.de>2009-03-25 10:15:46 +0100
committerJim Meyering <meyering@redhat.com>2009-03-25 10:16:34 +0100
commit26559b513dd51a8adb941829b46c162d90434f7d (patch)
treeb6f69e9ea12a51b14476b8229537da212be12277 /tests
parentb498eb071de71a8b77fdaec3e4b8ea3e4c2074ea (diff)
downloadcoreutils-26559b513dd51a8adb941829b46c162d90434f7d.tar.xz
tests: CuTmpdir.pm: avoid use of undefined variable in warning
* tests/CuTmpdir.pm (chmod_tree): Do not warn if $dir is undefined.
Diffstat (limited to 'tests')
-rw-r--r--tests/CuTmpdir.pm8
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};