Changeset e3068de13716f360b58ba2e2cdc99f7b7e4b9a5d

Timestamp:

10/29/09 21:51:29 (4 weeks ago)

Author:

Nelson Elhage <nelhage@mit.edu>

git-author:

Nelson Elhage <nelhage@mit.edu> / 2009-10-29T21:49:44Z-0400

Parents:

48d130b1d845e04389262e8cbfdd3064726b9468

Children:

96c3265adb3b452bec79a85030e082fc64d14011

git-committer:

Nelson Elhage <nelhage@mit.edu> / 2009-10-29T21:51:29Z-0400

Message:

perlconfig: Remove G_KEEPERR

I believe this is only around because I misread documentation once and
cargo-culted it everwhere. It's not what we want at all. This is the
source of the "(in cleanup)" that gets prepended to a lot of barnowl
errors.

Signed-off-by: Nelson Elhage <nelhage@mit.edu>

Files:

• perlconfig.c (modified) (5 diffs)

perlconfig.c

@@ -264 +264 @@
   PUTBACK ;
   
-  count = call_pv(subname, G_SCALAR|G_EVAL|G_KEEPERR);
+  count = call_pv(subname, G_SCALAR|G_EVAL);
   
   SPAGAIN ;
@@ -317 +317 @@
   PUTBACK;
 
-  count = call_method(method, G_SCALAR|G_KEEPERR|G_EVAL);
+  count = call_method(method, G_SCALAR|G_EVAL);
 
   SPAGAIN;
@@ -566 +566 @@
   PUTBACK;
   
-  call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);
+  call_sv(cb, G_DISCARD|G_EVAL);
 
   if(SvTRUE(ERRSV)) {
@@ -607 +607 @@
   PUTBACK;
 
-  call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);
+  call_sv(cb, G_DISCARD|G_EVAL);
 
   if(SvTRUE(ERRSV)) {
@@ -633 +633 @@
   PUTBACK;
 
-  call_method("do_callback", G_DISCARD|G_KEEPERR|G_EVAL);
+  call_method("do_callback", G_DISCARD|G_EVAL);
 
   SPAGAIN;