doc tweaks suggested by Abigail, M.J.T. Guy, and Larry Wall

[perl5.git] / op.c

diff --git a/op.c b/op.c
index f427b3b..ab7a056 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1304,6 +1304,9 @@ scalar_mod_type(OP *o, I32 type)
     case OP_CONCAT:
     case OP_SUBST:
     case OP_TRANS:
+    case OP_READ:
+    case OP_SYSREAD:
+    case OP_RECV:
     case OP_ANDASSIGN: /* may work later */
     case OP_ORASSIGN:  /* may work later */
        return TRUE;
@@ -4863,30 +4866,6 @@ ck_svconst(OP *o)
 }
 
 OP *
-ck_sysread(OP *o)
-{
-    if (o->op_flags & OPf_KIDS) {
-       /* get past pushmark */
-       OP *kid = cLISTOPo->op_first->op_sibling;
-       if (kid && (kid = kid->op_sibling)) {
-           switch (kid->op_type) {
-           case OP_THREADSV:
-           case OP_HELEM:
-           case OP_AELEM:
-           case OP_SASSIGN:
-           case OP_AELEMFAST:
-           case OP_RV2SV:
-           case OP_PADSV:
-               break;
-           default:
-               bad_type(2, "scalar", op_desc[o->op_type], kid);
-           }
-       }
-    }
-    return ck_fun(o);
-}
-
-OP *
 ck_trunc(OP *o)
 {
     if (o->op_flags & OPf_KIDS) {