From: Abhijit Menon-Sen <ams@wiw.org>
Date: Tue, 18 Sep 2001 18:44:59 +0000 (+0000)
Subject: OP_RCATLINE is an SVOP, not a BASEOP.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5fc9b9e43b504ca2ede985ab5c95511c26b3e9ed;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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.