This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove duplicately applied patch shards.
authorSpider Boardman <spider@orb.nashua.nh.us>
Fri, 25 Aug 2000 16:45:03 +0000 (12:45 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 25 Aug 2000 22:58:25 +0000 (22:58 +0000)
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

t/lib/cgi-html.t

index a49388b..6cfb10b 100755 (executable)
@@ -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()");