Changeset 9364a36
- Timestamp:
- Jan 8, 2007, 9:40:11 PM (17 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.10, 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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
r00f9a7d r9364a36 423 423 { 424 424 SV *cb = (SV*)(e->cbdata); 425 unsigned int n_a; 425 426 if(cb == NULL) { 426 427 owl_function_error("Perl callback is NULL!"); … … 436 437 PUTBACK; 437 438 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 } 439 444 440 445 FREETMPS;
Note: See TracChangeset
for help on using the changeset viewer.