From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 21 Mar 2013 17:08:57 +0000 (+0000)
Subject: get_params hook: actually DTRT for multiple-valued parameters
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=cgi-auth-flexible.git;a=commitdiff_plain;h=f2a46989c638ca8dbf60c63c227f91ae43697e8c

get_params hook: actually DTRT for multiple-valued parameters
---

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index 9144501..ccce71c 100644
--- 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;
 }