[Jifty-commit] r5429 - in Runops-Hook/trunk: lib/Runops

[Jifty commits]

Author: nothingmuch
Date: Sat May 10 08:53:41 2008
New Revision: 5429

Modified:
   Runops-Hook/trunk/lib/Runops/Trace.pm
   Runops-Hook/trunk/t/07perl_Hook.t

Log:
blah

Modified: Runops-Hook/trunk/lib/Runops/Trace.pm
==============================================================================
--- Runops-Hook/trunk/lib/Runops/Trace.pm	(original)
+++ Runops-Hook/trunk/lib/Runops/Trace.pm	Sat May 10 08:53:41 2008
@@ -24,7 +24,7 @@
     sysread $nul, $ops, 2**19, 0;
 
     # Just stash the pointers.
-    _trace_function( sub { $ops .= { $_[0] || return } }, $f );
+    _trace_function( sub { $ops .= ${ $_[0] || return } }, $f );
 
     return Digest::MD5::md5_hex($ops);
 }

Modified: Runops-Hook/trunk/t/07perl_Hook.t
==============================================================================
--- Runops-Hook/trunk/t/07perl_Hook.t	(original)
+++ Runops-Hook/trunk/t/07perl_Hook.t	Sat May 10 08:53:41 2008
@@ -11,7 +11,7 @@
 my ( $called, @ops, @refgen_args, @aassign_args );
 
 Runops::Trace::set_hook(sub {
-	my ( $hook, $op, $arity, @args ) = @_;
+	my ( $op, $arity, @args ) = @_;
 
 	$called++;