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/';
