Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!julius.cs.uiuc.edu!psuvax1!rutgers!carssdf!usenet
From: usenet@carssdf.UUCP (John Watson)
Newsgroups: comp.lang.perl
Subject: debug of user sub with arguments
Message-ID: <266@carssdf.UUCP>
Date: 7 Nov 90 03:44:26 GMT
Organization: C.A.R.S.,Middlesex,NJ
Lines: 44

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