diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-10-30 09:46:33 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-31 14:12:05 +0000 |
| commit | fc051c1ec091dfa3a3a0542ac63bc218189d0f84 (patch) | |
| tree | 66e7b3039746481adfd4cf1441715ff4f96faa27 /t | |
| parent | c5b802edbc2f0c65267eeef77229d452ab090751 (diff) | |
| download | perl-fc051c1ec091dfa3a3a0542ac63bc218189d0f84.tar.gz | |
CRLF fix for cgi-function.t tests
Message-ID: <Pine.OSF.4.10.10010301745120.69159-100000@aspara.forte.com>
p4raw-id: //depot/perl@7496
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/cgi-function.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/lib/cgi-function.t b/t/lib/cgi-function.t index 653c4e55e6..3b9722e3bd 100755 --- a/t/lib/cgi-function.t +++ b/t/lib/cgi-function.t @@ -36,6 +36,11 @@ my $CRLF = "\015\012"; if ($^O eq 'VMS') { $CRLF = "\n"; } +# Web servers on EBCDIC hosts are typically set up to do an EBCDIC -> ASCII +# translation hence CRLF is used as \r\n within CGI.pm on such machines. + +if (ord("\t") != 9) { $CRLF = "\r\n"; } + # Set up a CGI environment $ENV{REQUEST_METHOD}='GET'; $ENV{QUERY_STRING} ='game=chess&game=checkers&weather=dull'; |