develooper Front page | perl.perl5.porters | Postings from January 2017

[perl #2743] perl -MO status

Thread Previous
From:
Sawyer X via RT
Date:
January 2, 2017 14:25
Subject:
[perl #2743] perl -MO status
Message ID:
rt-4.0.24-23849-1483367114-777.2743-15-0@perl.org
On Mon, 02 Jan 2017 05:16:33 -0800, jkeenan wrote:
> On Tue, 28 Mar 2000 11:39:03 GMT, tchrist@chthon.perl.com wrote:
> > I'm going through 5.6's perlcompile and trying all the examples,
> > and many/most of them always/often have serious/fatal difficulties
> > ranging from incorrect/spurious output to completely blowing up.
> >
> > Does this stuff have an owner?
> >
> > 1)  With Deparse, virtually anything nontrivial gets me
> >
> > Can't call method "sibling" on an undefined value at lib/B/Deparse.pm
> > line 257.
> > CHECK failed--call queue aborted.
> >
> > 2) Before Deprase dies, you often get a lot of these:
> >
> > Exiting subroutine via next at /opt/perl/5.005.6.0/lib/5.6.0/i686-
> > linux/B/Deparse.pm lin
> > e 257.
> > Exiting subroutine via next at /opt/perl/5.005.6.0/lib/5.6.0/i686-
> > linux/B/Deparse.pm lin
> > e 257.
> >
> > 3) From Lint you can get this:
> >
> > Undefined value assigned to typeglob at lib/B/Lint.pm line 291.
> >
> > 4)   And with Xref, this simple thing:
> >
> > sub start {
> >    my($self, $tag, $attr, $attrseq, $orig) = @_;
> >    if ($tag eq 'a' && exists $attr->{href}) {
> >        if ($attr->{href} =~ s/\Q$from/$to/g) {
> >            # must reconstruct the start tag based on $tag and $attr.
> >            # wish we instead were told the extent of the 'href' value
> >            # in $orig.
> >            my $tmp = "<$tag";
> >            for (@$attrseq) {
> >                my $encoded = encode_entities($attr->{$_});
> >                $tmp .= qq( $_="$encoded ");
> >            }
> >            $tmp .= ">";
> >            $self->output($tmp);
> >            return;
> >        }
> >    }
> >    $self->output($orig);
> > }
> >
> > Produces this with Xref:
> >
> > Package (lexical)
> >   $attr             i2, 3
> >   $attrseq          i2, 9
> >   $encoded          i10, 11
> >   $orig             i2, &18, 18
> >   $self             i2, 14, 18
> >   $tag              i2, 3, 8
> >   $tmp              i8, &14, 11, 13, 14
> >   %$attr            3, 4
> >   %%$attr           4, 10
> >   %%%$attr          10
> >   @$attrseq         9
> >
> > This %%%%% business is getting out of hand.
> >
> > That's as far as I've gotten.  You already got a few perlcc bug
> > reports, too.
> >
> > --tom
> 
> This bug ticket was originally filed nearly 17 years ago.  Its
> original complaint was focused on the code examples in the document
> 'perlcompile.pod' which no longer exists.  That document has
> apparently been largely superseded by B::Deparse.
> 
> I recommend that we close this ticket.

Yes, please.

Thanks, Jim. :)

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=2743

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