[comp.lang.perl] debug "bug" passing args to a sub

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