diff options
| author | Roger Pau Monné <royger@gmail.com> | 2011-03-25 09:33:45 -0700 |
|---|---|---|
| committer | Brad Fitzpatrick <bradfitz@golang.org> | 2011-03-25 09:33:45 -0700 |
| commit | 500effe79ebbb9b130d2ad5a86c92c2f960f2456 (patch) | |
| tree | b5b6c09f4b88e979b2a6e4399bfce058a71fb214 | |
| parent | 1f2234633f70e5ef97dbaf5ea2600b65388f0f3b (diff) | |
| download | go-500effe79ebbb9b130d2ad5a86c92c2f960f2456.tar.gz go-500effe79ebbb9b130d2ad5a86c92c2f960f2456.zip | |
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
| -rwxr-xr-x | src/pkg/http/cgi/testdata/test.cgi | 4 |
1 files changed, 3 insertions, 1 deletions
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"; } |