From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Thu, 1 May 1997 06:01:20 +0000 (-0400)
Subject: Fix sysread() on tied handle
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=064096e1fdaab07bcd3ebf7726fe67a5ae16c76f;p=p5sagit%2Fp5-mst-13.2.git

Fix sysread() on tied handle

Found in both perldelta.pod and perltie.pod:

: =item READ this LIST
:
: This method will be called when the handle is read from via the C<read>
: or C<sysread> functions.

This isn't true without the following patch:

p5p-msgid: 199705010601.CAA04926@Orb.Nashua.NH.US
---

diff --git a/pp_sys.c b/pp_sys.c
index a03d9a4..ef769a5 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1195,7 +1195,7 @@ PP(pp_sysread)
     MAGIC *mg;
 
     gv = (GV*)*++MARK;
-    if (op->op_type == OP_READ &&
+    if ((op->op_type == OP_READ || op->op_type == OP_SYSREAD) &&
 	SvMAGICAL(gv) && (mg = mg_find((SV*)gv, 'q')))
     {
 	SV *sv;