#!./perl -wd
use strict; use warnings;
BEGIN {
	push @DB::typeahead, 'b 8', 'L b', 'c', 'q';
	$DB::single = 0;
}

print "Hello\n";

##</code><code>##

heiko@heiko-desktop:~/perl/my_tests$ ~/perl5.11.3 option_d_bug.pl

Loading DB routines from perl5db.pl version 1.33
Editor support available.

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

main::(option_d_bug.pl:8):
auto(-4) DB<1> b 8
Line 8 not breakable.
auto(-3) DB<2> L b
auto(-2) DB<3> 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.
auto(-1) DB<3> q

##</code><code>##

heiko@heiko-desktop:~/perl/my_tests$ ~/perl5.11.3 -d option_d_bug.pl

Loading DB routines from perl5db.pl version 1.33
Editor support available.

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

main::(option_d_bug.pl:8): print "Hello\n";
auto(-4) DB<1> b 8
auto(-3) DB<2> L b
option_d_bug.pl:
8: print "Hello\n";
break if (1)
auto(-2) DB<3> 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.
auto(-1) DB<3> q
heiko@heiko-desktop:~/perl/my_tests$