Changeset ad7cc2f for perlconfig.c

Timestamp:

Sep 8, 2010, 10:36:42 PM (13 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.7, release-1.8, release-1.9

Children:

8106870

Parents:

8c6e2c1

git-author:

Nelson Elhage <nelhage@mit.edu> (09/08/10 22:36:09)

git-committer:

Nelson Elhage <nelhage@mit.edu> (09/08/10 22:36:42)

Message:

owl_perlconfig_new_command: Pass G_EVAL.

In addition to the obvious bugs this fixes, this prevents us from
repeatedly reporting an error if $@ was set at entry to the function.

File:

• perlconfig.c (modified) (1 diff)

perlconfig.c

@@ -489 +489 @@
   PUTBACK;
 
-  call_pv("BarnOwl::Hooks::_new_command", G_SCALAR|G_VOID);
+  call_pv("BarnOwl::Hooks::_new_command", G_SCALAR|G_VOID|G_EVAL);
 
   SPAGAIN;