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

[PATCH resend] deparse empty formats

Thread Next
From:
Robin Houston
Date:
August 2, 2001 11:54
Subject:
[PATCH resend] deparse empty formats
Message ID:
20010802143236.A894@robin.kitsite.com
I've just noticed that this patch hasn't gone in. It should.

 .robin.

--- ext/B/B/Deparse.pm.orig	Thu Jul 12 10:03:50 2001
+++ ext/B/B/Deparse.pm	Thu Jul 12 10:06:45 2001
@@ -772,6 +772,7 @@
 		= @$self{'curstash warnings hints'};
     my $op = $form->ROOT;
     my $kid;
+    return "\f." if $op->first->name eq 'stub';
     $op = $op->first->first; # skip leavewrite, lineseq
     while (not null $op) {
 	$op = $op->sibling; # skip nextstate

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