Select Code to Download

  DB<57> x sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ 
+shift @d }; ${ wants( @a ) }
2:        sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ s
+hift @d }; ${ wants( @a ) };
...
in  $=main::wants('', 1, undef, 2, undef) from (eval 52)[C:/Dwimperl/p
+erl/lib/perl5db.pl:640]:2
 2:       sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ s
+hift @d }; @{ wants( @c , undef @c ) };
panic: attempt to copy freed scalar 302528c to 30257dc at (eval 52)[C:
+/Dwimperl/perl/lib/perl5db.pl:640] line 2.

DB<69> x use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( s
+hift @d, shift @d ) : shift @d };  wants( @a )
in  $=CODE(0x3025d1c)() from (eval 62)[C:/Dwimperl/perl/lib/perl5db.pl
+:640]:2
...
1  undef

DB<72>