Change 11379 by nick@camel-linux on 2001/07/16 13:35:39
Subject: [PATCH B::Deparse] formats can't contain formats
From: Robin Houston <[EMAIL PROTECTED]>
Date: Sat, 14 Jul 2001 14:28:50 +0100
Message-Id: <20010714142850.A10205@robin>
Affected files ...
... //depot/perl/ext/B/B/Deparse.pm#91 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#91 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm.~1~ Mon Jul 16 07:45:05 2001
+++ perl/ext/B/B/Deparse.pm Mon Jul 16 07:45:05 2001
@@ -768,8 +768,9 @@
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 @@
}
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);
End of Patch.
