home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / perl / 7003 < prev    next >
Encoding:
Internet Message Format  |  1992-11-17  |  2.2 KB
  1. Path: sparky!uunet!ukma!darwin.sura.net!zaphod.mps.ohio-state.edu!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: Bad free() error???
  5. Message-ID: <1992Nov16.192847.21862@netlabs.com>
  6. Date: 16 Nov 92 19:28:47 GMT
  7. References: <dewey-131192123446@sebastian.centerline.com>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 50
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <dewey-131192123446@sebastian.centerline.com> dewey@centerline.com (Devan F. dewey) writes:
  14. : Has anyone ever seen this error:
  15. : 
  16. : Bad free() ignored at newreports.pl line 354, <> line 4.
  17. : 
  18. : The code that it points to is:
  19. : 
  20. :    351  sub             getparam {
  21. :    352          local($paramname, $string, $format, $req) = @_;
  22. :    353
  23. :    354          $input = &getinput($string, $format, $req);
  24. :    355          $parameter = " $paramname=$input";
  25. :    356          return $parameter;
  26. :    357  }
  27. :    358
  28. :    359  sub             getinput {
  29. :    360          local($string, $format, $req) = @_;
  30. :    361
  31. :    362          $nogo = 1;
  32. :    363          while ($nogo) {
  33. :    364                  print "\nEnter $string";
  34. :    365                  print " (Hint: $format)" if $format;
  35. :    366                  print ": ";
  36. :    367                  $input = <>;
  37. :    368                  chop $input;
  38. :    369
  39. :    370                  if ($input eq "" & $req) {
  40. :    371                          print "\n$string may not be empty.\n";
  41. :    372                          $nogo = 1;
  42. :    373                  } else {
  43. :    374                          $nogo = 0;
  44. :    375                  }
  45. :    376          }
  46. :    377
  47. :    378          return $input;
  48. :    379  }
  49. :    380
  50.  
  51. Try putting a local($input) into getinput.  I suspect that the problem
  52. might have to do with returning a variable into itself.  You could also
  53. play with changing "return $input" to simply "$input", since the last
  54. expression is returned by default anyway, and it'd be more efficient.
  55. Other than that, I have no idea.
  56.  
  57. Note in line 370 that you've got a & where you really want &&.  The
  58. single & will work as long as both sides evaluate to 1 or 0, and you
  59. don't care that both sides are always evaluated, but it's a potentially
  60. deleterious habit to get into.
  61.  
  62. Larry
  63.