projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f2933f5
)
deparse empty formats
author
Robin Houston
<robin@cpan.org>
Thu, 2 Aug 2001 14:32:36 +0000
(15:32 +0100)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 2 Aug 2001 21:37:27 +0000
(21:37 +0000)
Message-ID: <
20010802143236
.A894@robin.kitsite.com>
p4raw-id: //depot/perl@11554
ext/B/B/Deparse.pm
patch
|
blob
|
history
diff --git
a/ext/B/B/Deparse.pm
b/ext/B/B/Deparse.pm
index
4c8dc74
..
11803c8
100644
(file)
--- a/
ext/B/B/Deparse.pm
+++ b/
ext/B/B/Deparse.pm
@@
-773,6
+773,7
@@
sub deparse_format {
= @$self{qw'curstash warnings hints'};
my $op = $form->ROOT;
my $kid;
+ return "\f." if $op->first->name eq 'stub';
$op = $op->first->first; # skip leavewrite, lineseq
while (not null $op) {
$op = $op->sibling; # skip nextstate