home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5592 < prev    next >
Encoding:
Internet Message Format  |  1992-08-29  |  1.4 KB
  1. Path: sparky!uunet!world!ora.com!minya!jc
  2. From: jc@minya.UUCP (John Chambers)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: locsym - First major upgrade ;-)
  5. Message-ID: <1349@minya.UUCP>
  6. Date: 28 Aug 92 19:57:47 GMT
  7. References: <1992Aug.202757.7799@abigale.uucp>
  8. Lines: 25
  9.  
  10. Marvelous little program! Much better than the  clumsy  sh  tool  that
  11. I've been using.  I'll keep my old one around for use on systems where
  12. I can't sneak perl in, but locsym is definitely  better,  even  if  it
  13. does get its speed by using a chunk of disk.
  14.  
  15. There was, however, one very curious "bug" in both of the versions, as
  16. they reached here.  They contained the line:
  17.  
  18. X        if (/^.*\s+[ATDS]\s+([^_.].*)/o) { $symbol = $1 };
  19.  
  20. The perl here rejected this because the sequence of tokens  "$1 }"  is
  21. not  legal.   I  changed the last two chars to ";}" and it worked just
  22. fine.  It was a bit of a surprise that version 2 had the same problem.
  23.  
  24. Is this legal syntax in some later patch that I don't have?  The  perl
  25. here  probably  isn't up to date, but I've never even seen this syntax
  26. before, or any hint that it might actually be legal.  Or  did  perhaps
  27. some  demented mailer along the path munge just these two bytes?  This
  28. is one of the weirder problems that I've seen in all my years of being
  29. a computer weenie ...
  30.  
  31. | This is perl, version 4.0
  32. | $RCSfile: perl.c,v $$Revision: 4.0.1.4 $$Date: 91/06/10 01:23:07 $
  33. | Patch level: 10
  34.  
  35.