Fix ext/File-Glob/t/threads.t filenames for VMS.
authorCraig A. Berry <craigberry@mac.com>
Wed, 2 Oct 2013 02:43:13 +0000 (21:43 -0500)
committerCraig A. Berry <craigberry@mac.com>
Wed, 2 Oct 2013 02:43:13 +0000 (21:43 -0500)
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.

ext/File-Glob/t/threads.t

index 141450a..03f00ce 100644 (file)
@@ -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: $!";