blinding: Properly lift _blind and _unblind for "" and undef

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index d5a3876b644662b963dbb51ee5a030f6189f89d4..a141877df270f8c6a111fe125ffd85230ad50b57 100644 (file)
--- 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 ?";