chiark / gitweb /
blinding: Properly lift _blind and _unblind for "" and undef
authorIan Jackson <ian.jackson@eu.citrix.com>
Tue, 27 Oct 2015 15:15:05 +0000 (15:15 +0000)
committerIan Jackson <Ian.Jackson@eu.citrix.com>
Tue, 27 Oct 2015 15:17:25 +0000 (15:17 +0000)
Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
cgi-auth-flexible.pm

index d5a3876..a141877 100644 (file)
@@ -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 ?";