Changeset 9364a36


Ignore:
Timestamp:
Jan 8, 2007, 9:40:11 PM (14 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
b1f2fb0
Parents:
46e8a1e
git-author:
Nelson Elhage <nelhage@mit.edu> (01/08/07 21:39:16)
git-committer:
Nelson Elhage <nelhage@mit.edu> (01/08/07 21:40:11)
Message:
Catch errors in perl edit callbacks
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    r00f9a7d r9364a36  
    423423{
    424424  SV *cb = (SV*)(e->cbdata);
     425  unsigned int n_a;
    425426  if(cb == NULL) {
    426427    owl_function_error("Perl callback is NULL!");
     
    436437  PUTBACK;
    437438 
    438   call_sv(cb, G_DISCARD);
     439  call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);
     440
     441  if(SvTRUE(ERRSV)) {
     442    owl_function_error("%s", SvPV(ERRSV, n_a));
     443  }
    439444
    440445  FREETMPS;
Note: See TracChangeset for help on using the changeset viewer.