Changeset 27c3a93 for perlconfig.c

Timestamp:

Oct 17, 2003, 8:55:32 PM (21 years ago)

Author:

Erik Nygren <nygren@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

2a2bb60

Parents:

b4db911

Message:

2.0.9-pre-2
	Better reporting of perl errors (both into the errqueue
	        and also clearing the error after displaying it).
	Allow default_style to be specified in config.

File:

• perlconfig.c (modified) (5 diffs)

perlconfig.c

@@ -121 +121 @@
   if (SvTRUE(ERRSV)) {
     STRLEN n_a;
-    owl_function_makemsg("Perl Error: '%s'", SvPV(ERRSV, n_a));
+    owl_function_error("Perl Error: '%s'", SvPV(ERRSV, n_a));
+    /* and clear the error */
+    sv_setsv (ERRSV, &PL_sv_undef);
   }
 
@@ -178 +180 @@
   if (ret || SvTRUE(ERRSV)) {
     STRLEN n_a;
-    return owl_strdup(SvPV(ERRSV, n_a));
+    char *err;
+    err = owl_strdup(SvPV(ERRSV, n_a));
+    sv_setsv (ERRSV, &PL_sv_undef);     /* and clear the error */
+    return err;
   }
 
@@ -184 +189 @@
   if (ret || SvTRUE(ERRSV)) {
     STRLEN n_a;
-    return owl_strdup(SvPV(ERRSV, n_a));
+    char *err;
+    err = owl_strdup(SvPV(ERRSV, n_a));
+    sv_setsv (ERRSV, &PL_sv_undef);     /* and clear the error */
+    return err;
   }
 
@@ -207 +215 @@
   if (SvTRUE(ERRSV)) {
     STRLEN n_a;
-    return owl_strdup(SvPV(ERRSV, n_a));
+    char *err;
+    err = owl_strdup(SvPV(ERRSV, n_a));
+    sv_setsv (ERRSV, &PL_sv_undef);     /* and clear the error */
+    return err;
   }
 
@@ -257 +268 @@
   if (SvTRUE(ERRSV)) {
     STRLEN n_a;
-    owl_function_makemsg("Perl Error: '%s'", SvPV(ERRSV, n_a));
+    owl_function_error("Perl Error: '%s'", SvPV(ERRSV, n_a));
+    sv_setsv (ERRSV, &PL_sv_undef);     /* and clear the error */
   }