DB<57> x sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( @a ) } 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( @a ) }; 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( @a ) }; in $=main::wants() from (eval 50)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( @a ) }; 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( @a ) }; 0 undef DB<58> x sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( undef @b ) } 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( undef @b ) }; 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( undef @b ) }; in $=main::wants(undef) from (eval 51)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( undef @b ) }; 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; ${ wants( undef @b ) }; 0 undef DB<59> x sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; @{ wants( @c , undef @c ) } 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; @{ wants( @c , undef @c ) }; 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @d }; @{ wants( @c , undef @c ) }; in $=main::wants('', 1, undef, 2, undef) from (eval 52)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 2: sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : \ shift @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 ? ( shift @d, shift @d ) : shift @d }; wants( @a ) in $=CODE(0x3025d1c)() from (eval 62)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 in $=strict::import('strict') from (eval 62)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 2: use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @a ); 2: use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @a ); 2: use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @a ); in @=main::wants() from (eval 62)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 2: use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @a ); 2: use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @a ); 0 undef 1 undef DB<70> x use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( undef @b ) in $=CODE(0x3025f1c)() from (eval 63)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 in $=strict::import('strict') from (eval 63)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 2: use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( undef @b ); 2: use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( undef @b ); 2: use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( undef @b ); in @=main::wants(undef) from (eval 63)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 2: use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( undef @b ); 2: use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( undef @b ); 0 undef 1 undef DB<71> x use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @c, undef @c ) in $=CODE(0x30280a4)() from (eval 64)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 in $=strict::import('strict') from (eval 64)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 2: use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @c, undef @c ); 2: use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @c, undef @c ); 2: use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @c, undef @c ); in @=main::wants(undef) from (eval 64)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2 2: use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @c, undef @c ); 2: use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d }; wants( @c, undef @c ); 0 undef 1 undef DB<72>