diff options
| author | Mattia Barbon <mbarbon@dsi.unive.it> | 2002-01-12 21:37:32 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-12 18:38:54 +0000 |
| commit | 3eaf8b6c1d0c4afb63259fb51f4f3670a1f5ed2c (patch) | |
| tree | d2c51ecf36535df31ffe6d019acf4c7f158cf912 | |
| parent | 5b3e00df85f0acd4faa55a140aa762a15b19dca3 (diff) | |
| download | perl-3eaf8b6c1d0c4afb63259fb51f4f3670a1f5ed2c.tar.gz | |
{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
| -rw-r--r-- | ext/B/B/Deparse.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index a6644fbe15..a0f0e78020 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) { |