http://qs1969.pair.com?node_id=959720


in reply to x @DB::args

Seems fine to me:
bash-3.2$ cat t4.pl #!/usr/bin/perl sub foo { print "inside foo\n"; } foo( [1..3], {a => 4, b => 5}, 'a' x 6, 789, ); bash-3.2$ perl -d t4.pl Loading DB routines from perl5db.pl version 1.3 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(t4.pl:7): foo( main::(t4.pl:8): [1..3], main::(t4.pl:9): {a => 4, b => 5}, main::(t4.pl:10): 'a' x 6, main::(t4.pl:11): 789, main::(t4.pl:12): ); DB<1> s main::foo(t4.pl:4): print "inside foo\n"; DB<1> T . = main::foo(ref(ARRAY), ref(HASH), 'aaaaaa', 789) called from file ` +t4.pl' line 7 DB<1> x @DB::args 0 ARRAY(0x100812fe0) 0 1 1 2 2 3 1 HASH(0x10097d318) 'a' => 4 'b' => 5 2 'aaaaaa' 3 789 DB<2> q