From 5081475eefaf24307ce7eaf4c87aafd588b37e98 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 5 Jul 1998 06:27:37 +0000 Subject: add ck_sysread() for better sysread/read/recv sanity p4raw-id: //depot/perl@1319 --- opcode.h | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'opcode.h') diff --git a/opcode.h b/opcode.h index 47dd777f4d..435b7d2507 100644 --- a/opcode.h +++ b/opcode.h @@ -1095,6 +1095,7 @@ OP * ck_spair _((OP* o)); OP * ck_split _((OP* o)); OP * ck_subr _((OP* o)); OP * ck_svconst _((OP* o)); +OP * ck_sysread _((OP* o)); OP * ck_trunc _((OP* o)); OP * pp_null _((ARGSproto)); @@ -2009,17 +2010,17 @@ EXT OP * (CPERLscope(*check)[]) _((OP *op)) = { ck_select, /* sselect */ ck_select, /* select */ ck_eof, /* getc */ - ck_fun, /* read */ + ck_sysread, /* read */ ck_fun, /* enterwrite */ ck_null, /* leavewrite */ ck_listiob, /* prtf */ ck_listiob, /* print */ ck_fun, /* sysopen */ ck_fun, /* sysseek */ - ck_fun, /* sysread */ + ck_sysread, /* sysread */ ck_fun, /* syswrite */ ck_fun, /* send */ - ck_fun, /* recv */ + ck_sysread, /* recv */ ck_eof, /* eof */ ck_fun, /* tell */ ck_fun, /* seek */ -- cgit v1.2.1