6 #define PerlDir_mkdir(name, mode) Mkdir((name), (mode))
8 # define PerlDir_chdir(name) chdir(((name) && *(name)) ? (name) : "SYS$LOGIN")
10 # define PerlDir_chdir(name) chdir((name))
12 #define PerlDir_rmdir(name) rmdir((name))
13 #define PerlDir_close(dir) closedir((dir))
14 #define PerlDir_open(name) opendir((name))
15 #define PerlDir_read(dir) readdir((dir))
16 #define PerlDir_rewind(dir) rewinddir((dir))
17 #define PerlDir_seek(dir, loc) seekdir((dir), (loc))
18 #define PerlDir_tell(dir) telldir((dir))
19 #endif /* PERL_OBJECT */
21 #endif /* Include guard */