Changeset a55abb3

Timestamp:

Nov 10, 2006, 12:38:50 PM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

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:

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:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -335 +335 @@
 
   if(SvTRUE(ERRSV)) {
-    owl_function_error("Error: %s", SvPV(ERRSV, n_a));
+    owl_function_error("%s", SvPV(ERRSV, n_a));
     POPs;
   } else {
@@ -386 +386 @@
   dSP ;
   PUSHMARK(SP) ;
-  call_pv("owl::mainloop_hook", G_DISCARD|G_EVAL|G_KEEPERR);
+  call_pv("owl::mainloop_hook", G_DISCARD|G_EVAL);
+  if(SvTRUE(ERRSV)) {
+    STRLEN n_a;
+    owl_function_error("%s", SvPV(ERRSV, n_a));
+  }
   return;
 }