[Jifty-commit] r5377 - Runops-Hook/trunk

[Jifty commits]

Author: nothingmuch
Date: Wed May  7 06:45:20 2008
New Revision: 5377

Modified:
   Runops-Hook/trunk/Hook.xs

Log:
forgot to cleanup the flag handling

Modified: Runops-Hook/trunk/Hook.xs
==============================================================================
--- Runops-Hook/trunk/Hook.xs	(original)
+++ Runops-Hook/trunk/Hook.xs	Wed May  7 06:45:20 2008
@@ -181,11 +181,11 @@
 
 void
 Runops_Hook_load_B (pTHX) {
-	load_module( PERL_LOADMOD_NOIMPORT, newSVpvs("B"), newSViv(0) );
-
-	Runops_Hook_fakeop_sv = sv_bless(newRV(newSVuv((UV)&Runops_Hook_fakeop)), gv_stashpv("B::UNOP", 0));
-
-	Runops_Hook_loaded_B = 1;
+	if (!Runops_Hook_loaded_B) {
+		load_module( PERL_LOADMOD_NOIMPORT, newSVpvs("B"), newSViv(0) );
+		Runops_Hook_fakeop_sv = sv_bless(newRV(newSVuv((UV)&Runops_Hook_fakeop)), gv_stashpv("B::UNOP", 0));
+		Runops_Hook_loaded_B = 1;
+	}
 }
 
 MODULE = Runops::Hook PACKAGE = Runops::Hook
@@ -246,10 +246,7 @@
 set_hook(SV *hook)
 	CODE:
 {
-	if (!Runops_Hook_loaded_B) {
-		Runops_Hook_load_B(aTHX);
-	}
-
+	Runops_Hook_load_B(aTHX);
 	Runops_Hook_set_perl_hook(aTHX_ hook);
 }