From 1674e4c5f71fc0406619b5296d8bbb67effd70ad Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Tue, 1 Oct 2013 21:43:13 -0500
Subject: 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)
---
 ext/File-Glob/t/threads.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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: $!";
-- 
cgit v1.2.1