OP_RCATLINE is an SVOP, not a BASEOP.

p4raw-id: //depot/perl@12072

diff --git a/opcode.h b/opcode.h
index f9dd890..7b90865 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1488,7 +1488,7 @@ EXT U32 PL_opargs[] = {
        0x00001608,     /* backtick */
        0x00012808,     /* glob */
        0x0001d608,     /* readline */
-       0x00001608,     /* rcatline */
+       0x00000c08,     /* rcatline */
        0x00002204,     /* regcmaybe */
        0x00002204,     /* regcreset */
        0x00002604,     /* regcomp */

diff --git a/opcode.pl b/opcode.pl
index 297a32b..28630a5 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -451,7 +451,7 @@ backtick    quoted execution (``, qx)       ck_open         t%
 # glob defaults its first arg to $_
 glob           glob                    ck_glob         t@      S?
 readline       <HANDLE>                ck_null         t%      F?
-rcatline       append I/O operator     ck_null         t%      
+rcatline       append I/O operator     ck_null         t$
 
 # Bindable operators.