sent multiple line per cookie, navigators need this and doesn t suppo…

…rt the advice spec
PerlDancer · Mar 1, 2011 · 1f2023c · 1f2023c
1 parent 676d68f
commit 1f2023c
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 2 deletions.
diff --git a/lib/Dancer/Renderer.pm b/lib/Dancer/Renderer.pm
@@ -61,8 +61,9 @@ sub response_with_headers {
         }
     }
     if (scalar @cookies) {
-        my $header = join ', ', @cookies;
-        $response->header('Set-Cookie' => $header);
+        foreach my $header(@cookies) {
+            $response->push_header('Set-Cookie',$header);
+        }
     }
 
     return $response;

diff --git a/lib/Dancer/Response.pm b/lib/Dancer/Response.pm
@@ -105,6 +105,20 @@ sub header {
     }
 }
 
+sub push_header {
+    my $self   = shift;
+    my $header = shift;
+
+    if (@_) {
+        foreach my $h(@_) {
+            $self->{headers}->push_header( $header => $h );
+        }
+    }
+    else {
+        return $self->{headers}->header($header);
+    }
+}
+
 sub headers {
     my $self = shift;
     $self->{headers}->header(@_);