usenet@carssdf.UUCP (John Watson) (09/06/90)
Is there a bug in perldb, such that arguments are not passed to subroutines, at least 'usersub's? This EXPERIMENTAL PATCH, --- SAMPLE ONLY --- seems to fix my problem. *** /u/perl/lib/perldb.pl Sun Aug 12 10:24:23 1990 --- /usr/perl/perldb.pl Wed Sep 5 22:20:15 1990 *************** *** 427,439 **** } push(@sub, $sub . '(' . join(', ', @args) . ') from ' . $line); if (wantarray) { ! @i = &$sub; --$#sub; $single |= pop(@stack); @i; } else { ! $i = &$sub; --$#sub; $single |= pop(@stack); $i; --- 427,439 ---- } push(@sub, $sub . '(' . join(', ', @args) . ') from ' . $line); if (wantarray) { ! @i = &$sub(@args); --$#sub; $single |= pop(@stack); @i; } else { ! $i = &$sub(@args); --$#sub; $single |= pop(@stack); $i; END------------ John Watson ...!carssdf!usenet