[comp.lang.perl] debug of user sub with arguments

usenet@carssdf.UUCP (John Watson) (11/07/90)

I have recently switched to patch 37 and still have dificulty using debug
with user subroutines that get passed arguments.  I found the following
patch to be helpful, although is not well researched.  It is only meant
to indicate where I think the problem is. 


*** perldb.pl	Tue Nov  6 22:37:20 1990
--- perldb.pl~	Tue Nov  6 21:47:36 1990
***************
*** 491,504 ****
      push(@stack, $single);
      $single &= 1;
      $single |= 4 if $#stack == $deep;
- 	local(@args) = @_;
      if (wantarray) {
! 	@i = &$sub(@args);
  	$single |= pop(@stack);
  	@i;
      }
      else {
! 	$i = &$sub(@args);
  	$single |= pop(@stack);
  	$i;
      }
--- 491,503 ----
      push(@stack, $single);
      $single &= 1;
      $single |= 4 if $#stack == $deep;
      if (wantarray) {
! 	@i = &$sub;
  	$single |= pop(@stack);
  	@i;
      }
      else {
! 	$i = &$sub;
  	$single |= pop(@stack);
  	$i;
      }


=============================================
Does anyone recognize a problem here?

John Watson    Middlesex, NJ       ...!rutgers!carssdf!usenet