Change 34085 by [EMAIL PROTECTED] on 2008/06/24 14:35:11
Subject: [PATCH] fix debop with pad const
From: Reini Urban <[EMAIL PROTECTED]>
Date: Tue, 24 Jun 2008 12:07:01 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/dump.c#306 edit
Differences ...
==== //depot/perl/dump.c#306 (text) ====
Index: perl/dump.c
--- perl/dump.c#305~33653~ 2008-04-06 13:11:52.000000000 -0700
+++ perl/dump.c 2008-06-24 07:35:11.000000000 -0700
@@ -2002,7 +2002,12 @@
switch (o->op_type) {
case OP_CONST:
case OP_HINTSEVAL:
- PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo_sv));
+ /* with ITHREADS, consts are stored in the pad, and the right pad
+ * may not be active here, so check.
+ * (((SVOP*)o)->op_sv ? ((SVOP*)o)->op_sv :
((my_perl->Icurpad)[(o)->op_targ]))
+ */
+ if (((SVOP*)o)->op_sv)
+ PerlIO_printf(Perl_debug_log, "(%s)", SvPEEK(cSVOPo_sv));
break;
case OP_GVSV:
case OP_GV:
End of Patch.
