[ViewVC] Diff of: cvs/Async-Interrupt/Interrupt.xs

Comparing Async-Interrupt/Interrupt.xs (file contents):
Revision 1.3 by root, Thu Jul 2 15:17:57 2009 UTC vs.
Revision 1.4 by root, Thu Jul 2 16:12:40 2009 UTC

   else
     old_sighandler (signum);
 }
 #endif
+static void
+scope_block_cb (pTHX_ void *async_sv)
+{
+  struct async *async = INT2PTR (struct async *, SvIVX ((SV *)async_sv));
+  --async->blocked;
+  if (async->pending && !async->blocked)
+    handle_async (async);
+  SvREFCNT_dec (async_sv);
+}
 MODULE = Async::Interrupt		PACKAGE = Async::Interrupt
 BOOT:
 	old_sighandler = PL_sighandlerp;
         PL_sighandlerp = async_sighandler;
         sig_pending = &PL_sig_pending;
         psig_pend   = PL_psig_pend;
         asyncs      = newAV ();
+        CvNODEBUG_on (get_cv ("Async::Interrupt::scope_block", 0)); /* otherwise calling scope can be the debugger */
 PROTOTYPES: DISABLE
 SV *
 _alloc (SV *cb, void *c_cb, void *c_arg, SV *fh_r, SV *fh_w)
 unblock (SV *self)
 	CODE:
 {
         struct async *async = INT2PTR (struct async *, SvIVX (SvRV (self)));
         --async->blocked;
         if (async->pending && !async->blocked)
           handle_async (async);
+}
+void
+scope_block (SV *self)
+	CODE:
+{
+	SV *async_sv = SvRV (self);
+        struct async *async = INT2PTR (struct async *, SvIVX (async_sv));
+        ++async->blocked;
+        LEAVE; /* unfortunately, perl sandwiches XS calls into ENTER/LEAVE */
+        SAVEDESTRUCTOR_X (scope_block_cb, (void *)SvREFCNT_inc (async_sv));
+        ENTER; /* unfortunately, perl sandwiches XS calls into ENTER/LEAVE */
 }
 void
 DESTROY (SV *self)
 	CODE:

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines