get_params hook: actually DTRT for multiple-valued parameters

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index 9144501e2e9d3dd3eef31c71493eb32a62be4be8..ccce71c66d3d3f2f7d3657ed051d20a9cb7202ca 100644 (file)
--- a/cgi-auth-flexible.pm
+++ b/cgi-auth-flexible.pm
@@ -77,10 +77,11 @@ sub has_a_param ($$) {
 
 sub get_params ($) {
     my ($r) = @_;
-    my %p;
     my $c = $r->{Cgi};
-    foreach my $name ($c->param()) {
-       $p{$name} = [ $c->param($name) ];
+    my $vars = $c->Vars();
+    my %p;
+    foreach my $name (keys %$vars) {
+       $p{$name} = [ split "\0", $vars->{$name} ];
     }
     return \%p;
 }