[Jifty-commit] r5660 - in B-OPCheck: lib/B

[Jifty commits]

Author: nothingmuch
Date: Sun Aug  3 23:03:00 2008
New Revision: 5660

Modified:
   B-OPCheck/OPCheck.xs
   B-OPCheck/lib/B/OPCheck.pm

Log:
pass mode to enterscope/leavescope

Modified: B-OPCheck/OPCheck.xs
==============================================================================
--- B-OPCheck/OPCheck.xs	(original)
+++ B-OPCheck/OPCheck.xs	Sun Aug  3 23:03:00 2008
@@ -192,8 +192,9 @@
 Runops_Trace_load_B(aTHX);
 
 void
-enterscope(opname, perlsub)
+enterscope(opname, mode, perlsub)
     SV *opname
+    SV *mode
     SV *perlsub
 PROTOTYPE: $$
 PREINIT:
@@ -212,8 +213,9 @@
     av_push(OPCHECK_subs[opnum], SvREFCNT_inc(perlsub));
 
 void
-leavescope(opname, perlsub)
+leavescope(opname, mode, perlsub)
     SV *opname
+    SV *mode
     SV *perlsub
 PROTOTYPE: $$
 PREINIT:

Modified: B-OPCheck/lib/B/OPCheck.pm
==============================================================================
--- B-OPCheck/lib/B/OPCheck.pm	(original)
+++ B-OPCheck/lib/B/OPCheck.pm	Sun Aug  3 23:03:00 2008
@@ -22,10 +22,10 @@
     my $by_opname = $^H{OPCHECK_leavescope} ||= {};
     my $guards = $by_opname->{$opname} ||= [];
     push @$guards, Scope::Guard->new(sub {
-        leavescope($opname, $sub);
+        leavescope($opname, $mode, $sub);
     });
 
-    enterscope($opname, $sub );
+    enterscope($opname, $mode, $sub);
 }
 
 sub unimport {