From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Fri, 25 Aug 2000 16:45:03 +0000 (-0400)
Subject: Remove duplicately applied patch shards.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2aaffc9b6e3e8fc8b6358f4477b5ee1da89b7120;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t
index a49388b..6cfb10b 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()");