diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-09-09 07:52:45 -0400 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-09-09 16:32:08 +0000 |
commit | 0642d82a230efbe169e4a441b6943c36ff880a90 (patch) | |
tree | 5286859b35c915ccbfb361ddd6a8f95ab34ef54f /lib/charnames.t | |
parent | 8b80c7bdc64efa77b50d19f1c6b4b544143cec29 (diff) | |
download | perl-0642d82a230efbe169e4a441b6943c36ff880a90.tar.gz |
Fix parallel testing temp filenames
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510809090852radb1044k43ff848c2d1e11fa@mail.gmail.com>
Date: Tue, 9 Sep 2008 11:52:45 -0400
p4raw-id: //depot/perl@34328
Diffstat (limited to 'lib/charnames.t')
-rw-r--r-- | lib/charnames.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index d0139070cf..4889562455 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -271,10 +271,9 @@ print "ok 46\n"; # ---- Alias extensions -my $tmpfile = "tmp0000"; +my $tmpfile = tempfile(); my $alifile = File::Spec->catfile(File::Spec->updir, qw(lib unicore xyzzy_alias.pl)); my $i = 0; -1 while -e ++$tmpfile; END { if ($tmpfile) { 1 while unlink $tmpfile; } } my @prgs; |