diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-27 00:54:29 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-26 21:59:17 +0000 |
| commit | a5b0cd91efde01b3e03f141462c306e7c683693a (patch) | |
| tree | ca58d016198fa263662d2cc4930740f6eb92fc57 /ext/B | |
| parent | 2facaf7c4dbd4158cb2080211e446e7fc84d66d8 (diff) | |
| download | perl-a5b0cd91efde01b3e03f141462c306e7c683693a.tar.gz | |
formats must be flush left
Message-ID: <20010426235429.A28747@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@9871
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 1def92fd8f..03e5e6c51e 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -707,15 +707,15 @@ sub deparse_format { $op = $op->sibling; # skip nextstate my @exprs; $kid = $op->first->sibling; # skip pushmark - push @text, $self->const_sv($kid)->PV; + push @text, "\f".$self->const_sv($kid)->PV; $kid = $kid->sibling; for (; not null $kid; $kid = $kid->sibling) { push @exprs, $self->deparse($kid, 0); } - push @text, join(", ", @exprs)."\n" if @exprs; + push @text, "\f".join(", ", @exprs)."\n" if @exprs; $op = $op->sibling; } - return join("", @text) . "."; + return join("", @text) . "\f."; } sub is_scope { |