diff options
author | Craig A. Berry <craigberry@mac.com> | 2013-10-01 21:43:13 -0500 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2013-10-01 21:43:13 -0500 |
commit | 43ed1b742e2b7be9184e1fb35c0f68d15b87feed (patch) | |
tree | c39d93b9cf4366ea1743c91d15fd093b66f7fd2c /ext/File-Glob | |
parent | 722c92c735f2ffe585718e77631832aa1a283a72 (diff) | |
download | perl-43ed1b742e2b7be9184e1fb35c0f68d15b87feed.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.
Diffstat (limited to 'ext/File-Glob')
-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: $!"; |