Changeset e3068de

Timestamp:

Oct 29, 2009, 9:51:29 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

96c3265

Parents:

48d130b

git-author:

Nelson Elhage <nelhage@mit.edu> (10/29/09 21:49:44)

git-committer:

Nelson Elhage <nelhage@mit.edu> (10/29/09 21:51:29)

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>

File:

• 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;