From 32f2ae54802153b346ebc78d2814988b5d22b26d Mon Sep 17 00:00:00 2001
From: Robin Houston <robin@cpan.org>
Date: Thu, 2 Aug 2001 15:32:36 +0100
Subject: [PATCH] deparse empty formats Message-ID:
 <20010802143236.A894@robin.kitsite.com>

p4raw-id: //depot/perl@11554
---
 ext/B/B/Deparse.pm | 1 +
 1 file changed, 1 insertion(+)

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
-- 
2.7.4