strange debugger bug

Here's the original RC1: 

    % perl -de 'open ($fh[1], "< /etc/motd") or die $!; print "got $fh[1]"'
    Default die handler restored.
    warn set to 0, die set to 0

    Loading DB routines from perl5db.pl version 1.06
    Emacs support available.

    Enter h or `h h' for help, run `perldoc perldebug' for more help.

    main::(-e:1):   open ($fh[1], "< /etc/motd") or die $!; print "got $fh[1]"
      DB<1> n
    Undefined subroutine &main::GLOB called at (eval 3)[/usr/local/lib/perl5/5.6.0/perl5db.pl:1290] line 1, <IN> line 1.
    main::(-e:1):   open ($fh[1], "< /etc/motd") or die $!; print "got $fh[1]"
    Undefined subroutine &main::GLOB called at (eval 4)[/usr/local/lib/perl5/5.6.0/perl5db.pl:1290] line 1, <IN> line 1.
    DB<1> q
    Undefined subroutine &DB::GLOB called at (eval 6)[/usr/local/lib/perl5/5.6.0/perl5db.pl:514] line 1, <IN> line 3.

Here's bleadperl:

% perl -Ilib -de 'open ($fh[1], "< /etc/motd") or die $!; print "got $fh[1]"'
Default die handler restored.

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

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

main::(-e:1):   open ($fh[1], "< /etc/motd") or die $!; print "got $fh[1]"
  DB<1> n
Undefined subroutine &main::GLOB called at (eval 3)[lib/perl5db.pl:1510] line 1, <IN> line 1.
main::(-e:1):   open ($fh[1], "< /etc/motd") or die $!; print "got $fh[1]"
Undefined subroutine &main::GLOB called at (eval 4)[lib/perl5db.pl:1510] line 1, <IN> line 1.
  DB<1> h
Couldn't evaluate `h' alias: Undefined subroutine &DB::GLOB called at (eval 5)[lib/perl5db.pl:614] line 1, <IN> line 2.

--tom

• strange debugger bug by Tom Christiansen