From 67fc2416631ce1ddf0bbad56564533900de2f291 Mon Sep 17 00:00:00 2001
From: Robin Houston <robin@cpan.org>
Date: Sat, 14 Jul 2001 15:28:50 +0100
Subject: [PATCH] formats can't contain formats Message-Id: 
 <20010714142850.A10205@robin>

p4raw-id: //depot/perl@11379
---
 ext/B/B/Deparse.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 08f073e..4c8dc74 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -768,8 +768,9 @@ sub deparse_format {
     my @text;
     local($self->{'curcv'}) = $form;
     local($self->{'curcvlex'});
+    local($self->{'in_format'}) = 1;
     local(@$self{qw'curstash warnings hints'})
-		= @$self{'curstash warnings hints'};
+		= @$self{qw'curstash warnings hints'};
     my $op = $form->ROOT;
     my $kid;
     $op = $op->first->first; # skip leavewrite, lineseq
@@ -1064,7 +1065,7 @@ sub lineseq {
     }
     my $body = join(";\n", grep {length} @exprs);
     my $subs = "";
-    if (defined $root && defined $limit_seq) {
+    if (defined $root && defined $limit_seq && !$self->{'in_format'}) {
 	$subs = join "\n", $self->seq_subs($limit_seq);
     }
     return join(";\n", grep {length} $body, $subs);
-- 
2.7.4