This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
deparse empty formats
authorRobin Houston <robin@cpan.org>
Thu, 2 Aug 2001 14:32:36 +0000 (15:32 +0100)
committerJarkko 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

index 4c8dc74..11803c8 100644 (file)
@@ -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