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