develooper Front page | perl.perl5.porters | Postings from April 2001

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

Thread Next
From:
Robin Houston
Date:
April 26, 2001 15:54
Subject:
[PATCH B::Deparse] formats must be flush left
Message ID:
20010426235429.A28747@puffinry.freeserve.co.uk
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 {

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About