diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 20:50:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 20:50:37 +0000 |
| commit | 91769ae35426bad270684425a251dfae5c8261fe (patch) | |
| tree | 8c51c2d1317654fb1ab8eb9791afb600893fdc51 /pp_sys.c | |
| parent | fc8f2f0bea7446191b123f94e63c729814407ba7 (diff) | |
| download | perl-91769ae35426bad270684425a251dfae5c8261fe.tar.gz | |
(retracted by #12485)
More dollar$hiding.
p4raw-id: //depot/perl@12481
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -3721,7 +3721,7 @@ PP(pp_open_dir) RETPUSHYES; nope: if (!errno) - SETERRNO(EBADF,RMS$_DIR); + SETERRNO(EBADF,VMS_RMS_DIR); RETPUSHUNDEF; #else DIE(aTHX_ PL_no_dir_func, "opendir"); @@ -3776,7 +3776,7 @@ PP(pp_readdir) nope: if (!errno) - SETERRNO(EBADF,RMS$_ISI); + SETERRNO(EBADF,VMS_RMS_ISI); if (GIMME == G_ARRAY) RETURN; else @@ -3807,7 +3807,7 @@ PP(pp_telldir) RETURN; nope: if (!errno) - SETERRNO(EBADF,RMS$_ISI); + SETERRNO(EBADF,VMS_RMS_ISI); RETPUSHUNDEF; #else DIE(aTHX_ PL_no_dir_func, "telldir"); @@ -3830,7 +3830,7 @@ PP(pp_seekdir) RETPUSHYES; nope: if (!errno) - SETERRNO(EBADF,RMS$_ISI); + SETERRNO(EBADF,VMS_RMS_ISI); RETPUSHUNDEF; #else DIE(aTHX_ PL_no_dir_func, "seekdir"); @@ -3851,7 +3851,7 @@ PP(pp_rewinddir) RETPUSHYES; nope: if (!errno) - SETERRNO(EBADF,RMS$_ISI); + SETERRNO(EBADF,VMS_RMS_ISI); RETPUSHUNDEF; #else DIE(aTHX_ PL_no_dir_func, "rewinddir"); |