home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / perl / 5335 < prev    next >
Encoding:
Internet Message Format  |  1992-08-15  |  1.7 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sdd.hp.com!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: BUG? in 4.035: length($`) is strange
  5. Message-ID: <1992Aug15.203554.10738@netlabs.com>
  6. Date: 15 Aug 92 20:35:54 GMT
  7. References: <1992Jul29.213032.11414@ugle.unit.no>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 36
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <1992Jul29.213032.11414@ugle.unit.no> harald.alvestrand@delab.sintef.no writes:
  14. : Environment: Sun-4, SunOS 4.1.1, cc used for compilation.
  15. : Also fails on HP-UX 8.0.whatever, HP-710 (different length, thou....)
  16. : 
  17. : 
  18. : ----------------- Cut here ------------------
  19. : #!/local/bin/perl
  20. : $_ = "  0049    56 |  |  |  Standard Attribute List";
  21. : if (/Standard Attribute List/) {
  22. :    $indent = length($`);
  23. :    $var = $`;
  24. :    $len = length($var);
  25. :    print "Indent set to $indent, length of $`\n";
  26. :    print "Len set to $len, length of $var\n";
  27. : }
  28. : --------------- Cut here -------------------
  29. : 
  30. : Result of run with PERL version 4.0, patchlevel 35:
  31. : 
  32. : Indent set to 475080, length of   0049    56 |  |  |  
  33. : Len set to 22, length of   0049    56 |  |  |  
  34. : 
  35. : Result of run with PERL version 3.018:
  36. : 
  37. : Indent set to 22, length of   0049    56 |  |  |  
  38. : Len set to 22, length of   0049    56 |  |  |  
  39. : 
  40. : As you can see, I already have a workaround, but I do not like bugs....
  41. : can someone check if it is problematic in other versions, too?
  42.  
  43. It's a bug in all versions from 4.009 to 4.035.  It will not be a bug
  44. in future versions.  If you want the "unofficial" fix, look in stab.c
  45. for the switch in function stab_len(), and move the return statement
  46. that's in the default: case to after the switch statement.
  47.  
  48. Larry
  49.