Fixed handling $self->r->param(foo => \@bar)

spiritloose · Nov 19, 2010 · 0d8e304 · 0d8e304
1 parent e225880
commit 0d8e304
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/Sledge/Request/PSGI.pm b/lib/Sledge/Request/PSGI.pm
@@ -70,6 +70,10 @@ sub args {
 
 sub param {
     my $self = shift;
+    # $r->param(foo => \@bar);
+    if (@_ == 2 && ref($_[1]) eq 'ARRAY') {
+        return $self->query->param($_[0], @{$_[1]});
+    }
     $self->query->param(@_);
 }