From: Roger Pau Monné <royger@gmail.com>
Date: Fri, 25 Mar 2011 16:33:45 +0000 (-0700)
Subject: http: modified perl cgi test to remove newline from env variables
X-Git-Tag: weekly.2011-03-28~38
X-Git-Url: http://www.git.cypherpunks.su/?a=commitdiff_plain;h=500effe79ebbb9b130d2ad5a86c92c2f960f2456;p=gostls13.git

http: modified perl cgi test to remove newline from env variables

Fixes #1639

R=golang-dev, bradfitzgo
CC=golang-dev
https://golang.org/cl/4291069
---

diff --git a/src/pkg/http/cgi/testdata/test.cgi b/src/pkg/http/cgi/testdata/test.cgi
index 8c10dde32b..253589eed9 100755
--- a/src/pkg/http/cgi/testdata/test.cgi
+++ b/src/pkg/http/cgi/testdata/test.cgi
@@ -30,5 +30,7 @@ foreach my $k (sort keys %$params) {
 }
 
 foreach my $k (sort keys %ENV) {
-  print "env-$k=$ENV{$k}\n";
+  my $clean_env = $ENV{$k};
+  $clean_env =~ s/[\n\r]//g;
+  print "env-$k=$clean_env\n";
 }