diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-09-26 12:43:14 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-27 22:46:42 +0000 |
| commit | 9d4c144b923f1296fc58dd2230c626ac46cfb312 (patch) | |
| tree | 8b5444d81e4dfbd61b7d29b52ca3d2ed3ef33cce /iperlsys.h | |
| parent | 16920d4e7955f05583cb8e0e238058b2a6125125 (diff) | |
| download | perl-9d4c144b923f1296fc58dd2230c626ac46cfb312.tar.gz | |
slightly less broken chdir.t for VMS
Message-Id: <5.1.0.14.0.20010926173048.01aac5b0@exchi01>
p4raw-id: //depot/perl@12252
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/iperlsys.h b/iperlsys.h index 298f82aecb..d3e82549b4 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -415,7 +415,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)) #else # define PerlDir_chdir(name) chdir((name)) #endif |