[asperl] various changes to get asperl working under Borland

[p5sagit/p5-mst-13.2.git] / perldir.h

diff --git a/perldir.h b/perldir.h
index 1bc4b8a..5fafecd 100644 (file)
--- a/perldir.h
+++ b/perldir.h
@@ -5,7 +5,7 @@
 
 #include "ipdir.h"
 
-#define PerlDir_mkdir(name, mode) piDir->MKdir((name), (mode), ErrorNo())
+#define PerlDir_mkdir(name, mode) piDir->Makedir((name), (mode), ErrorNo())
 #define PerlDir_chdir(name) piDir->Chdir((name), ErrorNo())
 #define PerlDir_rmdir(name) piDir->Rmdir((name), ErrorNo())
 #define PerlDir_close(dir) piDir->Close((dir), ErrorNo())
@@ -15,7 +15,7 @@
 #define PerlDir_seek(dir, loc) piDir->Seek((dir), (loc), ErrorNo())
 #define PerlDir_tell(dir) piDir->Tell((dir), ErrorNo())
 #else
-#define PerlDir_mkdir(name, mode) mkdir((name), (mode))
+#define PerlDir_mkdir(name, mode) Mkdir((name), (mode))
 #define PerlDir_chdir(name) chdir((name))
 #define PerlDir_rmdir(name) rmdir((name))
 #define PerlDir_close(dir) closedir((dir))