diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1998-03-26 10:11:50 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-04-02 16:03:37 +0000 |
| commit | 17f28c40fa08b585b95d4a2531b1cd975d11e986 (patch) | |
| tree | a3848d6befdc55f7cc1a326e0b4b19b31ad09869 /perldir.h | |
| parent | ec2ab091f034a27dfbd7d815fad4e3e670b743e9 (diff) | |
| download | perl-17f28c40fa08b585b95d4a2531b1cd975d11e986.tar.gz | |
Next wave of _63 VMS patches
p4raw-id: //depot/perl@854
Diffstat (limited to 'perldir.h')
| -rw-r--r-- | perldir.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -4,7 +4,11 @@ #ifdef PERL_OBJECT #else #define PerlDir_mkdir(name, mode) Mkdir((name), (mode)) -#define PerlDir_chdir(name) chdir((name)) +#ifdef VMS +# define PerlDir_chdir(name) chdir(((name) && *(name)) ? (name) : "SYS$LOGIN") +#else +# define PerlDir_chdir(name) chdir((name)) +#endif #define PerlDir_rmdir(name) rmdir((name)) #define PerlDir_close(dir) closedir((dir)) #define PerlDir_open(name) opendir((name)) |