[Jifty-commit] r5429 - in Runops-Hook/trunk: lib/Runops
Jifty commits
jifty-commit at lists.jifty.org
Sat May 10 08:53:41 EDT 2008
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++;
More information about the Jifty-commit
mailing list