From ec2fdb61f044bb0db25602faae2a4f2c1400791e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 27 Oct 2015 15:15:05 +0000
Subject: [PATCH] blinding: Properly lift _blind and _unblind for "" and undef

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---
 cgi-auth-flexible.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index d5a3876..a141877 100644
--- a/cgi-auth-flexible.pm
+++ b/cgi-auth-flexible.pm
@@ -1178,7 +1178,7 @@ sub _blind_combine ($$$) {
 
 sub _blind ($$) {
     my ($r, $in) = @_;
-    return undef unless defined $in;
+    return $in unless $in;
     my $l = $r->_blind_len($in);
     my $mask = $r->_random(($l+1)>>1);
     $mask = substr $mask, 0, $l;
@@ -1188,6 +1188,7 @@ sub _blind ($$) {
 
 sub _unblind ($$) {
     my ($r, $in) = @_;
+    return $in unless $in;
     my ($blound,$mask) = ($in =~ m#^(.*)/([0-9a-f]+)$#) or die "$in ?";
     my $l = $r->_blind_len($blound);
     $l == length($mask) or die "$in ?";
-- 
2.30.2