From: Stephen McCamant <smcc@mit.edu>
Date: Mon, 22 Sep 2003 20:53:57 +0000 (-0700)
Subject: Re: B::Deparse fails in pure_string()
X-Git-Tag: accepted/trunk/20130322.191538~22931
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8e0b04c797634d42e2e4586b2684cb43288cfb04;p=platform%2Fupstream%2Fperl.git

Re: B::Deparse fails in pure_string()
Message-ID: <16239.50133.367465.947398@famine.OCF.Berkeley.EDU>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index d68e823..67c61b7 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -3912,8 +3912,9 @@ sub pure_string {
     elsif (is_scalar($op) || $type =~ /^[ah]elem$/) {
 	return 1;
     }
-    elsif ($type eq "null" and not null $op->first and
-	   $op->first->name eq "null" and not null $op->first->first and
+    elsif ($type eq "null" and $op->can('first') and not null $op->first and
+	   $op->first->name eq "null" and $op->first->can('first')
+	   and not null $op->first->first and
 	   $op->first->first->name eq "aelemfast") {
 	return 1;
     }