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 (file)
--- 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') {