home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5522 < prev    next >
Encoding:
Text File  |  1992-08-26  |  2.3 KB  |  73 lines
  1. Path: sparky!uunet!olivea!hal.com!darkstar.UCSC.EDU!cats.ucsc.edu!haynes
  2. From: haynes@cats.ucsc.edu (Jim Haynes)
  3. Newsgroups: comp.lang.perl
  4. Subject: bug report
  5. Message-ID: <17h7q8INNs5s@darkstar.UCSC.EDU>
  6. Date: 27 Aug 92 00:32:08 GMT
  7. Organization: University of California; Santa Cruz
  8. Lines: 62
  9. NNTP-Posting-Host: hobbes.ucsc.edu
  10.  
  11.  
  12. disclaimer: I'm not yet a perl programmer, but a system manager running other
  13. people's scripts.
  14.  
  15. On a Sun Sparc IPC, running SunOS 4.1.1
  16. running perl 4.010 but it also happens with 4.019 and 4.035
  17.  
  18. I get a segmentation violation.  adb on the core dump file gives
  19.  
  20. # adb /usr/tmp/perl /sysdev/core
  21. $c
  22. core file = /sysdev/core -- program ``perl''
  23. SIGSEGV 11: segmentation violation
  24. _memcpy(?)
  25. _realloc(0xc2c08,0xffffffff,0x0,0x19,0xb,0x3ff8) + 160
  26. _str_grow(0x75a48,0xffffffff,0xfffffffd,0xffffffff,0x2018,0xc2c08) + b8
  27. _str_gets(0x75a48,0xf77a1fd8,0xa,0x105408,0xfffffffd,0xc2c08) + 2c8
  28. _cmd_exec(0x0,0x0,0x206,0x80,0x75a48,0x98388) + 1598
  29. _cmd_exec(0x0,0x0,0x5000,0x0,0x747b8,0x93548) + 28e8
  30. _do_subr(0x8b0c8,0x378b48,0x8eb88,0x1,0xffffffff,0x77c08) + 44c
  31. _eval(0x8b0c8,0x77c04,0x1,0x59,0x3,0x8b108) + 5a9c
  32. _cmd_exec(0x0,0x0,0x207,0x0,0x747b8,0x8b148) + 1de8
  33. _cmd_exec(0x0,0x1,0x282,0xffffffff,0x747d8,0x8b488) + 251c
  34. _cmd_exec(0x0,0x71,0x5207,0x80,0x873c8,0x8bac8) + 2958
  35. _cmd_exec(0x0,0x0,0x1207,0x778ab,0x86a88,0x872c8) + 28e8
  36. _main(0x0,0xf7fffd9c,0xf7fffdec,0x96c48,0xf7fffff9,0xa86c8) + 22b8
  37.  
  38. with perl compiled with debugging:
  39. panic: realloc at /usr/local/change.pl line 235, <RCSFILE> line 308.
  40.  
  41. The context of the changelog.pl script is
  42.  
  43.             }
  44.         }
  45.         last if /^desc/;
  46.     }
  47.  
  48.     while(<RCSFILE>) { # Skip description
  49.         last if /^@+$|[^@]@$/;
  50.     }
  51.  
  52. LINE 235>>>    while(<RCSFILE>) {
  53.         chop;
  54.         if (/^(\d)+\.(\d)+/) {
  55.             if ($vers{$_}) {
  56.                 $v = $_;
  57.                 undef $rcs_text;
  58.                 $_ = <RCSFILE>; # get rid of "log"
  59.                 while(<RCSFILE>) {
  60.                     last if /^@$/;
  61.                     $rcs_text .= $_;
  62.                 }
  63.  
  64. and I don't know what RCSFILE contains at this point, because I don't
  65. know the name of the file it was working on.  I could send the whole
  66. script to anyone who cares to look at it.
  67. -- 
  68. haynes@cats.ucsc.edu
  69. haynes@cats.bitnet
  70.  
  71. "Any clod can have the facts, but having opinions is an Art."
  72.         Charles McCabe, San Francisco Chronicle
  73.