From: Robin Houston <robin@cpan.org>
Date: Thu, 26 Apr 2001 23:54:29 +0000 (+0100)
Subject: formats must be flush left
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a5b0cd91efde01b3e03f141462c306e7c683693a;p=p5sagit%2Fp5-mst-13.2.git

formats must be flush left
Message-ID: <20010426235429.A28747@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@9871
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 1def92f..03e5e6c 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 {