From 69b47968fa00dfccb6aab68633e778fed2de80ea Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 2 Jan 2000 21:37:29 +0000
Subject: disable optimization in change#3612 for join() and quotemeta()--this
 removes all the gross hacks for the special cases in that change; fix
 pp_concat() for when TARG == arg (modified version of patch suggested by Ilya
 Zakharevich)

p4raw-link: @3612 on //depot/perl: b162f9ead0a98db35cdcfc8c889e344c040c8d8e

p4raw-id: //depot/perl@4749
---
 opcode.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'opcode.h')

diff --git a/opcode.h b/opcode.h
index e4b25aafe3..9d9cd521f1 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1576,7 +1576,7 @@ EXT U32 PL_opargs[] = {
 	0x0001368e,	/* lcfirst */
 	0x0001368e,	/* uc */
 	0x0001368e,	/* lc */
-	0x0001378e,	/* quotemeta */
+	0x0001368e,	/* quotemeta */
 	0x00000248,	/* rv2av */
 	0x00026c04,	/* aelemfast */
 	0x00026404,	/* aelem */
@@ -1592,7 +1592,7 @@ EXT U32 PL_opargs[] = {
 	0x00022800,	/* unpack */
 	0x0004280d,	/* pack */
 	0x00222808,	/* split */
-	0x0004290d,	/* join */
+	0x0004280d,	/* join */
 	0x00004801,	/* list */
 	0x00448400,	/* lslice */
 	0x00004805,	/* anonlist */
-- 
cgit v1.2.1