This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
workaround for CRT bug in chdir() (from Charles Lane, via
[perl5.git] / iperlsys.h
index f36dcd5..59da474 100644 (file)
@@ -551,7 +551,7 @@ struct IPerlDirInfo
 
 #define PerlDir_mkdir(name, mode)      Mkdir((name), (mode))
 #ifdef VMS
-#  define PerlDir_chdir(n)             chdir(((n) && *(n)) ? (n) : "SYS$LOGIN")
+#  define PerlDir_chdir(n)             Chdir(((n) && *(n)) ? (n) : "SYS$LOGIN")
 #else 
 #  define PerlDir_chdir(name)          chdir((name))
 #endif