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

[perl #41461] Perl debugger dies

Thread Previous | Thread Next
From:
James E Keenan via RT
Date:
August 10, 2013 01:43
Subject:
[perl #41461] Perl debugger dies
Message ID:
rt-3.6.HEAD-2552-1376098992-1135.41461-15-0@perl.org
On Sat Nov 12 07:12:13 2011, jkeenan wrote:
> On Wed Feb 07 06:06:40 2007, 1illig@informatik.uni-hamburg.de wrote:
> 
> > 
> > $ echo 'print "hello\n";' > bug.pl
> > $ env PERLDB_OPTS="noTTY frame=2" perl -d bug.pl
> > Can't use an undefined value as a symbol reference at
> >    /usr/pkg/2006Q2/lib/perl5/5.8.0/perl5db.pl line 5376.
> >  at /usr/pkg/2006Q2/lib/perl5/5.8.0/perl5db.pl line 5376
> > 	DB::print_lineinfo('', 'Package bug.pl.\x{a}') called at
> >    /usr/pkg/2006Q2/lib/perl5/5.8.0/perl5db.pl line 5480
> > 	DB::postponed('*main::_<bug.pl') called at bug.pl line 1
> > 
> 
> This is still present in perl 5.14.2:
> 
> [perl] 547 $ echo 'print "hello\n";' > bug.pl
> 
> [perl] 549 $ env PERLDB_OPTS="noTTY frame=2" perl -d bug.pl 
> Can't use an undefined value as a symbol reference at
> /usr/local/lib/perl5/5.14.2/perl5db.pl line 5403.
>  at /usr/local/lib/perl5/5.14.2/perl5db.pl line 5403
>         DB::print_lineinfo('', 'Package bug.pl.\x{a}') called at
> /usr/local/lib/perl5/5.14.2/perl5db.pl line 5507
>         DB::postponed('*main::_<bug.pl') called at bug.pl line 1
> 
> Here's the relevant part of perl5db.pl:
> 
>    5397 sub print_lineinfo {
>    5398 
>    5399     # Make the terminal sensible if we're not the primary
debugger.
>    5400     resetterm(1) if $LINEINFO eq $OUT and $term_pid != $$;
>    5401     local $\ = '';
>    5402     local $, = '';
>    5403     print $LINEINFO @_;
>    5404 } ## end sub print_lineinfo
> 

And still present in 5.18.0:

$ env PERLDB_OPTS="noTTY frame=2" perl -d bug.pl 
Can't use an undefined value as a symbol reference at
/usr/local/lib/perl5/5.18.0/perl5db.pl line 6141.
 at /usr/local/lib/perl5/5.18.0/perl5db.pl line 6141.
        DB::print_lineinfo('', 'Package bug.pl.\x{a}') called at
/usr/local/lib/perl5/5.18.0/perl5db.pl line 6247
        DB::postponed('*main::_<bug.pl') called at bug.pl line 1


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

Thread Previous | 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