mirror of
git://git.sv.gnu.org/coreutils.git
synced 2026-02-11 18:02:13 +02:00
tests: CuTmpdir.pm: avoid use of undefined variable in warning
* tests/CuTmpdir.pm (chmod_tree): Do not warn if $dir is undefined.
This commit is contained in:
committed by
Jim Meyering
parent
b498eb071d
commit
26559b513d
@@ -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};
|
||||
|
||||
Reference in New Issue
Block a user