[Jifty-commit] r5374 - Runops-Hook/trunk
Jifty commits
jifty-commit at lists.jifty.org
Wed May 7 04:46:30 EDT 2008
Author: nothingmuch
Date: Wed May 7 04:46:30 2008
New Revision: 5374
Modified:
Runops-Hook/trunk/Hook.xs
Log:
load B when setting a Perl hook
Modified: Runops-Hook/trunk/Hook.xs
==============================================================================
--- Runops-Hook/trunk/Hook.xs (original)
+++ Runops-Hook/trunk/Hook.xs Wed May 7 04:46:30 2008
@@ -13,6 +13,8 @@
static SV *Runops_Hook_perl_hook;
static bool Runops_Hook_perl_ignore_ret = 1;
+static bool Runops_Hook_loaded_b;
+
/* this is the modified runloop */
int runops_hooked(pTHX)
{
@@ -206,6 +208,11 @@
set_hook(SV *hook)
CODE:
{
+ if (!Runops_Hook_loaded_b) {
+ load_module( PERL_LOADMOD_NOIMPORT, newSVpvs("B"), newSViv(0) );
+ Runops_Hook_loaded_b = 1;
+ }
+
Runops_Hook_set_perl_hook(aTHX_ hook);
}
More information about the Jifty-commit
mailing list