diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 16:42:49 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 16:42:49 +0000 |
| commit | a385c4e7bdc7cbc9f50e4f013b7a373e7450e199 (patch) | |
| tree | 5b6ebfc5774e498e12a1e8a67edefaa95fe36b31 /pp_hot.c | |
| parent | 8437356be6fd345ccac4c061ec80c5c086c926c8 (diff) | |
| download | perl-a385c4e7bdc7cbc9f50e4f013b7a373e7450e199.tar.gz | |
(retracted by #12485)
Avoid dollar signs in identifiers (in non-VMS) to
placate ultra picky ANSI compilers (such as DEC^WCPQ^WHP).
p4raw-id: //depot/perl@12475
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -590,7 +590,7 @@ PP(pp_print) goto had_magic; if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) report_evil_fh(gv, io, PL_op->op_type); - SETERRNO(EBADF,RMS$_IFI); + SETERRNO(EBADF,VMS_RMS_IFI); goto just_say_no; } else if (!(fp = IoOFP(io))) { @@ -600,7 +600,7 @@ PP(pp_print) else if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) report_evil_fh(gv, io, PL_op->op_type); } - SETERRNO(EBADF,IoIFP(io)?RMS$_FAC:RMS$_IFI); + SETERRNO(EBADF,IoIFP(io)?VMS_RMS_FAC:VMS_RMS_IFI); goto just_say_no; } else { |