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

[perl #71678] Bug [5.11.3] debugger bug in evaluation of user actions ('a' command)

From:
kevin dawson via RT
Date:
August 26, 2013 20:35
Subject:
[perl #71678] Bug [5.11.3] debugger bug in evaluation of user actions ('a' command)
Message ID:
rt-3.6.HEAD-1873-1377382837-1218.71678-14-0@perl.org
I suspect this is another item fixed by shlom-fish wake :)

$ perl -d ~/workspace/p5p/script/simple.pl 

Loading DB routines from perl5db.pl version 1.39_10
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(/home/kevin/workspace/p5p/script/simple.pl:8):
8:	greet('Hello');
  DB<1> v 7
4 	
5:	use strict;
6:	use warnings;
7 	
8==>	greet('Hello');
9 	
10 	sub greet {
11:		my $arg = shift;
12:		print "$arg\n";
13:		return;
  DB<2> a 12 print " \$arg = $arg\n"
  DB<3> v 7
4 	
5:	use strict;
6:	use warnings;
7 	
8==>	greet('Hello');
9 	
10 	sub greet {
11:		my $arg = shift;
12:a		print "$arg\n";
13:		return;
  DB<4> c 12
main::greet(/home/kevin/workspace/p5p/script/simple.pl:12):
12:		print "$arg\n";
 $arg = Hello
  DB<5> .
main::greet(/home/kevin/workspace/p5p/script/simple.pl:12):
12:		print "$arg\n";
  DB<5> v 8
5:	use strict;
6:	use warnings;
7 	
8:	greet('Hello');
9 	
10 	sub greet {
11:		my $arg = shift;
12==>a		print "$arg\n";
13:		return;
14 	}
  DB<6> c
Hello
Debugged program terminated.  Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.
 $arg = 
  DB<6> q
kevin@billy:~/src/p5p/perl$ 

imho this is now fixed





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