From: Robin Houston <robin@cpan.org>
Date: Thu, 2 Aug 2001 14:32:36 +0000 (+0100)
Subject: deparse empty formats
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32f2ae54802153b346ebc78d2814988b5d22b26d;p=p5sagit%2Fp5-mst-13.2.git

deparse empty formats
Message-ID: <20010802143236.A894@robin.kitsite.com>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 4c8dc74..11803c8 100644
--- 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