Subject: Re: Recursion error in perl 4.035 ?

From: [email-masked] (Mark Jefferys)
Date: 28 Nov 92 23:31:14 GMT

In article <[email-masked]> [email-masked] writes:

% In cons.c, change the code at or around 1423 from
% 
%     if (willsave)
%         (void)apush(tosave,arg->arg_ptr.arg_str);
% 
% to
% 
%     if (willsave && arg->arg_ptr.arg_str )
%         (void)apush(tosave,arg->arg_ptr.arg_str);

This is half of my patch to which Larry gave a "Looks OK to me."
It's been a few months, do I'll post it again.

Mark

Index: cons.c
*** Orig/cons.c	Thu Jun 11 22:42:01 1992
--- cons.c	Sun Jun 28 18:31:20 1992
***************
*** 1353,1359 ****
  
  		    /* in any event, save the iterator */
  
! 		    (void)apush(tosave,cmd->c_short);
  		}
  		shouldsave |= tmpsave;
  	    }
--- 1353,1360 ----
  
  		    /* in any event, save the iterator */
  
! 		    if (cmd->c_short)  /* Better safe than sorry */
! 			(void)apush(tosave,cmd->c_short);
  		}
  		shouldsave |= tmpsave;
  	    }
***************
*** 1420,1426 ****
  	shouldsave = TRUE;
  	break;
      }
!     if (willsave)
  	(void)apush(tosave,arg->arg_ptr.arg_str);
      return shouldsave;
  }
--- 1421,1427 ----
  	shouldsave = TRUE;
  	break;
      }
!     if (willsave && arg->arg_ptr.arg_str)
  	(void)apush(tosave,arg->arg_ptr.arg_str);
      return shouldsave;
  }
-- 
Mark Jefferys		Internet: [email-masked]