From f88a49f83513b788b799aa67e852ec6291167d76 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Wed, 3 Oct 2012 19:48:52 +0200
Subject: Fix session user matching.

---
 www/sign.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'www/sign.pl')

diff --git a/www/sign.pl b/www/sign.pl
index 53d7015..a0fd11f 100755
--- a/www/sign.pl
+++ b/www/sign.pl
@@ -86,7 +86,7 @@ while (my $cgi = new CGI::Fast) {
   if ($email =~ /^(.*?)@(.*)/) { $domain = $2; }
 
   die "User is not authorized to use this email address"
-    unless ($session_user ~~ email_users($email));
+    unless ($session_user ~~ [email_users($email)]);
 
   my $sig = sign $key, decode_json($user_pubkey), $email, $duration, $domain;
   say encode_json({signature => $sig});
-- 
cgit v1.2.3