This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
chdir's argument is a directory in DosGlob.t.
authorCraig A. Berry <craigberry@mac.com>
Thu, 13 Dec 2012 13:10:17 +0000 (07:10 -0600)
committerCraig A. Berry <craigberry@mac.com>
Thu, 13 Dec 2012 13:41:45 +0000 (07:41 -0600)
It probably doesn't matter anywhere but VMS, but on VMS,
disk:[dir.blead]t (the result of catfile) is an invalid argument to
chdir, but disk:[dir.blead.t] (the result of catdir) is correct.

ext/File-DosGlob/t/DosGlob.t

index edae752..b3e0043 100644 (file)
@@ -10,7 +10,7 @@ use File::DosGlob;
 use FindBin;
 use File::Spec::Functions;
 BEGIN {
-    chdir catfile $FindBin::Bin, (updir)x3, 't';
+    chdir catdir $FindBin::Bin, (updir)x3, 't';
     @INC = '../lib';
 }