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 (file)
--- 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;
     }