From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Sat, 12 Jan 2002 20:37:32 +0000 (+0100)
Subject: {PATCH] Fix:  Re: [PATCH] B::C, perlcc.PL, B.xs, B.pm, t/TEST, C.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3eaf8b6c1d0c4afb63259fb51f4f3670a1f5ed2c;p=p5sagit%2Fp5-mst-13.2.git

{PATCH] Fix:  Re: [PATCH] B::C, perlcc.PL, B.xs, B.pm, t/TEST, C.xs
Message-ID: <3C409E8C.16203.196C2D3@localhost>

p4raw-id: //depot/perl@14221
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index a6644fb..a0f0e78 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -3627,7 +3627,10 @@ sub pp_split {
     my($op, $cx) = @_;
     my($kid, @exprs, $ary, $expr);
     $kid = $op->first;
-    if ($ {$kid->pmreplroot}) {
+    # under ithreads pmreplroot is an integer, not an SV
+    my $replroot = $kid->pmreplroot;
+    if ( ( ref($replroot) && $$replroot ) ||
+         ( !ref($replroot) && $replroot ) ) {
 	$ary = $self->stash_variable('@', $self->gv_name($kid->pmreplroot));
     }
     for (; !null($kid); $kid = $kid->sibling) {