OP_RCATLINE is an SVOP, not a BASEOP.

p4raw-id: //depot/perl@12072

2 files changed, 2 insertions, 2 deletions

diff --git a/opcode.h b/opcode.h
index f9dd890f3d..7b908656e7 100644
--- 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 297a32b5be..28630a5511 100755
--- 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.