[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