summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2012-02-18 15:10:19 -0600
committerCraig A. Berry <craigberry@mac.com>2012-02-18 15:10:19 -0600
commit7e2f0f75aa17cc3dc4a5c03af27ee55906c37948 (patch)
tree609c425a18bde6c20f2611cd6926f965fbd08769
parent32ac7083f9cd50060ca6840005fedf8f153a9ab7 (diff)
downloadperl-7e2f0f75aa17cc3dc4a5c03af27ee55906c37948.tar.gz
Longer filenames for while_readdir.t.
With filenames varying between only one and five characters in length, it was fairly easy to get two files differing only in case ('A' and 'a', for example). Which on non-case-sensitive file systems could generate a warning at unlink time because it would unlink 'a' and then check for the existence of 'a' and get true because 'A' was still there and indistinguishable from 'a'. So just use longer filenames to make the possibility of collision vanishingly small.
-rw-r--r--t/op/while_readdir.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/while_readdir.t b/t/op/while_readdir.t
index 1473dada92..63f8d92ba2 100644
--- a/t/op/while_readdir.t
+++ b/t/op/while_readdir.t
@@ -65,7 +65,7 @@ FILE0
sub make_some_files {
for (1..int rand 10) {
my $name;
- $name .= $chars[rand $#chars] for 1..int(1 + rand 5);
+ $name .= $chars[rand $#chars] for 1..int(10 + rand 5);
make_file($name);
}
}