In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/43ed1b742e2b7be9184e1fb35c0f68d15b87feed?hp=722c92c735f2ffe585718e77631832aa1a283a72>
- Log ----------------------------------------------------------------- commit 43ed1b742e2b7be9184e1fb35c0f68d15b87feed Author: Craig A. Berry <[email protected]> Date: Tue Oct 1 21:43:13 2013 -0500 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. ----------------------------------------------------------------------- Summary of changes: 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 141450a..03f00ce 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: $!"; -- Perl5 Master Repository
