Fix multi headers handling

miyagawa · Feb 28, 2010 · 3278802 · 3278802
1 parent 294fb85
commit 3278802
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/Perlbal/Plugin/PSGI.pm b/lib/Perlbal/Plugin/PSGI.pm
@@ -166,8 +166,14 @@ sub run_request {
         my $res = shift;
 
         my $hd = $pb->{res_headers} = Perlbal::HTTPHeaders->new_response($res->[0]);
+        my %seen;
         while (my($k, $v) = splice @{$res->[1]}, 0, 2) {
-            $hd->header($k, $v);
+            if ($seen{lc($k)}++) {
+                my $newvalue = $hd->header($k) . "\015\012$k: $v";
+                $hd->header($k, $newvalue);
+            } else {
+                $hd->header($k, $v);
+            }
         }
 
         $pb->setup_keepalive($hd);