diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2000-08-25 12:45:03 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-25 22:58:25 +0000 |
| commit | 2aaffc9b6e3e8fc8b6358f4477b5ee1da89b7120 (patch) | |
| tree | 944bf4b1ec759d04bf1647a6af0d6f8646c0945d /t/lib | |
| parent | f0512cd0c387bfff77236db8b14da13dd8ece381 (diff) | |
| download | perl-2aaffc9b6e3e8fc8b6358f4477b5ee1da89b7120.tar.gz | |
Remove duplicately applied patch shards.
Subject: [ID 20000825.012] [PATCH@6822] t/lib/cgi-html.t produces ugly cruft during 'make test'
Message-Id: <200008252045.QAA23518@leggy.zk3.dec.com>
p4raw-id: //depot/perl@6825
Diffstat (limited to 't/lib')
| -rwxr-xr-x | t/lib/cgi-html.t | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t index a49388bf6f..6cfb10b0a4 100755 --- a/t/lib/cgi-html.t +++ b/t/lib/cgi-html.t @@ -45,13 +45,6 @@ test(7,h1({-align=>'CENTER'},['fred','agnes']) eq local($") = '-'; test(8,h1('fred','agnes','maura') eq '<h1>fred-agnes-maura</h1>',"open/close tag \$\" interpolation"); } -my $CRLF = "\015\012"; -if ($^O eq 'VMS') { - $CRLF = "\n"; # only on a webserver does a \r get inserted -} -if (ord("\t") != 9) { - $CRLF = "\r\n"; # EBCDIC CRLF -} test(9,header() eq "Content-Type: text/html; charset=ISO-8859-1${CRLF}${CRLF}","header()"); test(10,header(-type=>'image/gif') eq "Content-Type: image/gif${CRLF}${CRLF}","header()"); test(11,header(-type=>'image/gif',-status=>'500 Sucks') eq "Status: 500 Sucks${CRLF}Content-Type: image/gif${CRLF}${CRLF}","header()"); |