diff options
| author | Craig A. Berry <craigberry@mac.com> | 2013-10-01 21:43:13 -0500 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2013-11-30 21:19:49 -0500 |
| commit | 1674e4c5f71fc0406619b5296d8bbb67effd70ad (patch) | |
| tree | 6f7e3f861770dc25226aff0a9cba96f841f40af1 | |
| parent | d62e66462ce1e2669a3e852707aa303dd24dc6de (diff) | |
| download | perl-1674e4c5f71fc0406619b5296d8bbb67effd70ad.tar.gz | |
Fix ext/File-Glob/t/threads.t filenames for VMS.
As noted in
http://www.nntp.perl.org/group/perl.perl5.porters/2013/09/msg208134.html
zero-length extensions always get a trailing dot on VMS, and the
easiest workaround is to always use an explicit extension.
(cherry picked from commit 43ed1b742e2b7be9184e1fb35c0f68d15b87feed)
| -rw-r--r-- | ext/File-Glob/t/threads.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/File-Glob/t/threads.t b/ext/File-Glob/t/threads.t index 141450ac7c..03f00ceb63 100644 --- a/ext/File-Glob/t/threads.t +++ b/ext/File-Glob/t/threads.t @@ -28,7 +28,7 @@ use File::Glob qw(csh_glob); my($dir) = tempdir(CLEANUP => 1) or die "Could not create temporary directory"; -my @temp_files = qw(1_file 2_file 3_file); +my @temp_files = qw(1_file.tmp 2_file.tmp 3_file.tmp); for my $file (@temp_files) { open my $fh, ">", File::Spec->catfile($dir, $file) or die "Could not create file $dir/$file: $!"; |