Re: [RESEND] FETCH/STORE/LENGTH callbacks for numbered capture variables

On Sat, May 19, 2007 at 11:11:25AM +0100, Zefram wrote:
> Joshua N Pritikin wrote:
> >I don't think this message reached the mailing list?
> 
> It did.  I received it the first time, and I replied:

Hrm, somehow I missed your reply as well!

> $$ $] $^V
> 
> Not many that are really guaranteed to remain read-only, are there.

So it is as simple as this? Can somebody confirm?

diff --git a/t/unconfigured.t b/t/unconfigured.t
--- a/t/unconfigured.t
+++ b/t/unconfigured.t
@@ -23,5 +23,5 @@ my $var = 1;
 eval { Event->var(@p, poll => 0, var => \$var) };
 ok $@, '/without poll events/';
 
-eval { Event->var(@p, var => \$1) };
+eval { Event->var(@p, var => \$$) };
 ok $@, '/read\-only/';