diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-02 18:22:06 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-02 18:22:06 +0000 |
| commit | 64b007ad21aa3ae393a46cb085cae3d4dc3ff72e (patch) | |
| tree | 88207c4c4b46ec197cb1da076710768d7ca80922 /ext/B | |
| parent | 8f3ccfa25e524ac7012f7d988353f2de4c217ccb (diff) | |
| download | perl-64b007ad21aa3ae393a46cb085cae3d4dc3ff72e.tar.gz | |
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
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 6e4833545a..3af74bcebc 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') { |