In perl.git, the branch maint-5.10 has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/70d24963c1103bb7e444e983831b521059952384?hp=add0c32f941ff4c1fa66201c1580b6bf19e8502f>
- Log -----------------------------------------------------------------
commit 70d24963c1103bb7e444e983831b521059952384
Author: Chip Salzenberg <c...@pobox.com>
Date: Thu Jul 9 00:39:41 2009 -0700
fix segfault in -Dx without threads
-----------------------------------------------------------------------
Summary of changes:
dump.c | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/dump.c b/dump.c
index da10ea0..5f0d140 100644
--- a/dump.c
+++ b/dump.c
@@ -1040,7 +1040,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP
*o)
#ifdef USE_ITHREADS
Perl_dump_indent(aTHX_ level, file, "PADIX = %" IVdf "\n",
(IV)cPADOPo->op_padix);
#else
- if ( ! (PL_op->op_flags & OPf_SPECIAL)) { /* not lexical */
+ if ( ! (o->op_flags & OPf_SPECIAL)) { /* not lexical */
if (cSVOPo->op_sv) {
SV * const tmpsv = newSV(0);
ENTER;
--
Perl5 Master Repository
