[PATCH B::Deparse] formats must be flush left

op/write.t now passes.

(In other news: Fixing the failure of pragma/sub_lval.t is going to
require some thought)

 .robin.

--- ext/B/B/Deparse.pm.sent4	Thu Apr 26 22:58:46 2001
+++ ext/B/B/Deparse.pm	Thu Apr 26 23:50:31 2001
@@ -707,15 +707,15 @@
 	$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 {

• [PATCH B::Deparse] formats must be flush left by Robin Houston
• Re: [PATCH B::Deparse] formats must be flush left by Jarkko Hietaniemi
• Re: [PATCH B::Deparse] formats must be flush left by Jarkko Hietaniemi
• Re: [PATCH B::Deparse] formats must be flush left by Jarkko Hietaniemi