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

Re: [PATCH resend] deparse empty formats

Thread Previous
From:
Jarkko Hietaniemi
Date:
August 2, 2001 15:43
Subject:
Re: [PATCH resend] deparse empty formats
Message ID:
20010802174348.H20071@chaos.wustl.edu
On Thu, Aug 02, 2001 at 02:32:36PM +0100, Robin Houston wrote:
> I've just noticed that this patch hasn't gone in. It should.

Thanks, applied.

>  .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

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

Thread Previous


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