From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 2 Jun 2003 18:22:06 +0000 (+0000)
Subject: A little bit more of weird-code-proofing in B::Deparse.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=64b007ad21aa3ae393a46cb085cae3d4dc3ff72e;p=p5sagit%2Fp5-mst-13.2.git

A little bit more of weird-code-proofing in B::Deparse.
Fixes a bug reported by Alexey Tourbin in
Message-ID: <20030602085348.GA24023@solemn.turbinal.org>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 6e48335..3af74bc 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -3586,6 +3586,7 @@ sub re_dq {
 
 sub pure_string {
     my ($self, $op) = @_;
+    return 0 if null $op;
     my $type = $op->name;
 
     if ($type eq 'const') {