Change 14221 by jhi@alpha on 2002/01/12 18:38:54
Subject: {PATCH] Fix: Re: [PATCH] B::C, perlcc.PL, B.xs, B.pm, t/TEST, C.xs
From: "Mattia Barbon" <[EMAIL PROTECTED]>
Date: Sat, 12 Jan 2002 20:37:32 +0100
Message-ID: <3C409E8C.16203.196C2D3@localhost>
Affected files ...
.... //depot/perl/ext/B/B/Deparse.pm#103 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#103 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm.~1~ Sat Jan 12 11:45:05 2002
+++ perl/ext/B/B/Deparse.pm Sat Jan 12 11:45:05 2002
@@ -3627,7 +3627,10 @@
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) {
End of Patch.
