diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 06:27:37 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-05 06:27:37 +0000 |
| commit | 5081475eefaf24307ce7eaf4c87aafd588b37e98 (patch) | |
| tree | 744b428598c31382b30b98187d16cb837b6db9ec /opcode.pl | |
| parent | f6f9bdb7c056c5766371aa31d1a898fb878f3de5 (diff) | |
| download | perl-5081475eefaf24307ce7eaf4c87aafd588b37e98.tar.gz | |
add ck_sysread() for better sysread/read/recv sanity
p4raw-id: //depot/perl@1319
Diffstat (limited to 'opcode.pl')
| -rwxr-xr-x | opcode.pl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -496,7 +496,7 @@ sselect select system call ck_select t@ S S S S select select ck_select st@ F? getc getc ck_eof st% F? -read read ck_fun imst@ F R S S? +read read ck_sysread imst@ F R S S? enterwrite write ck_fun dis% F? leavewrite write exit ck_null 1 @@ -505,11 +505,11 @@ print print ck_listiob ims@ F? L sysopen sysopen ck_fun s@ F S S S? sysseek sysseek ck_fun s@ F S S -sysread sysread ck_fun imst@ F R S S? +sysread sysread ck_sysread imst@ F R S S? syswrite syswrite ck_fun imst@ F S S S? send send ck_fun imst@ F S S S? -recv recv ck_fun imst@ F R S S +recv recv ck_sysread imst@ F R S S eof eof ck_eof is% F? tell tell ck_fun st% F? |