From 5e7c9804422d7e8d0352698da154d0b568b27cb9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 22 Sep 2010 11:47:56 -0700
Subject: [PATCH] smart match binding problem

---
 t/Session/Id.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/Session/Id.t b/t/Session/Id.t
index 42bafeec0..f5514b8a5 100644
--- a/t/Session/Id.t
+++ b/t/Session/Id.t
@@ -61,7 +61,7 @@ my $isValid = 1;
 for (1..2000) {
 	last unless $isUnique;
 	my $id = $session->id->generate();
-	$isUnique = ($isUnique ? ! $id ~~ @uniqueIds : 0);
+	$isUnique = ($isUnique ? ! ($id ~~ @uniqueIds) : 0);
 	$isValid = ($isValid ? $session->id->valid($id) : 0);
 	push(@uniqueIds,$id);
 }