Changeset a55abb3 for perlconfig.c


Ignore:
Timestamp:
Nov 10, 2006, 12:38:50 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:
71e1e80
Parents:
6df381b
git-author:
Nelson Elhage <nelhage@mit.edu> (11/10/06 12:36:38)
git-committer:
Nelson Elhage <nelhage@mit.edu> (11/10/06 12:38:50)
Message:
Handling errors in the perl mainloop hook better
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    rd03091c ra55abb3  
    335335
    336336  if(SvTRUE(ERRSV)) {
    337     owl_function_error("Error: %s", SvPV(ERRSV, n_a));
     337    owl_function_error("%s", SvPV(ERRSV, n_a));
    338338    POPs;
    339339  } else {
     
    386386  dSP ;
    387387  PUSHMARK(SP) ;
    388   call_pv("owl::mainloop_hook", G_DISCARD|G_EVAL|G_KEEPERR);
     388  call_pv("owl::mainloop_hook", G_DISCARD|G_EVAL);
     389  if(SvTRUE(ERRSV)) {
     390    STRLEN n_a;
     391    owl_function_error("%s", SvPV(ERRSV, n_a));
     392  }
    389393  return;
    390394}
Note: See TracChangeset for help on using the changeset viewer.