From 93189314521460c01625b05f7cfa81ac855affa9 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 18 Sep 2002 04:19:25 +0300 Subject: enable -ansi -pedantic Message-ID: <20020917221925.GF85044@lyta.hut.fi> p4raw-id: //depot/perl@17925 --- pp_hot.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index f0d3e98845..98b9b44d15 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -607,7 +607,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,RMS_IFI); goto just_say_no; } else if (!(fp = IoOFP(io))) { @@ -617,7 +617,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)?RMS_FAC:RMS_IFI); goto just_say_no; } else { -- cgit v1.2.1