home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / perl / 8041 < prev    next >
Encoding:
Text File  |  1993-01-28  |  1.7 KB  |  63 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!spool.mu.edu!agate!ames!saimiri.primate.wisc.edu!usenet.coe.montana.edu!news.u.washington.edu!henson!reed!mjeffery
  3. From: mjeffery@reed.edu (Mark Jefferys)
  4. Subject: Re: A simple test for perl 5.0
  5. Keywords: bug
  6. References: <42@glasgow.eiffel.com>
  7. Organization: Reed College, Portland, OR
  8. Date: Thu, 28 Jan 1993 21:37:53 GMT
  9. Message-ID: <1993Jan28.213753.4658@reed.edu>
  10. Expires: Sun, 21 Feb 1993 08:00:00 GMT
  11. Lines: 50
  12.  
  13. In article <42@glasgow.eiffel.com> ram@eiffel.com (Raphael Manfredi) writes:
  14.  
  15. % Which is peculiar... Removing one of the 'local' declarations in 'verify'
  16. % on simply avoiding assignment of &explore() into an array makes the
  17. % program loop indefinitely, as expected.
  18.  
  19. This bug has been fixed for a while, but it is probably time to repost
  20. the fix -- seeing that posts about it seem to show up regularly:
  21.  
  22.  
  23. Index: cons.c
  24. *** Orig/cons.c    Thu Jun 11 22:42:01 1992
  25. --- cons.c    Sun Jun 28 18:31:20 1992
  26. ***************
  27. *** 1353,1359 ****
  28.   
  29.               /* in any event, save the iterator */
  30.   
  31. !             (void)apush(tosave,cmd->c_short);
  32.           }
  33.           shouldsave |= tmpsave;
  34.           }
  35. --- 1353,1360 ----
  36.   
  37.               /* in any event, save the iterator */
  38.   
  39. !             if (cmd->c_short)  /* Better safe than sorry */
  40. !             (void)apush(tosave,cmd->c_short);
  41.           }
  42.           shouldsave |= tmpsave;
  43.           }
  44. ***************
  45. *** 1420,1426 ****
  46.       shouldsave = TRUE;
  47.       break;
  48.       }
  49. !     if (willsave)
  50.       (void)apush(tosave,arg->arg_ptr.arg_str);
  51.       return shouldsave;
  52.   }
  53. --- 1421,1427 ----
  54.       shouldsave = TRUE;
  55.       break;
  56.       }
  57. !     if (willsave && arg->arg_ptr.arg_str)
  58.       (void)apush(tosave,arg->arg_ptr.arg_str);
  59.       return shouldsave;
  60.   }
  61. -- 
  62. Mark Jefferys        Internet: mjeffery@reed.edu
  63.