diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-11 00:26:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-11 00:26:04 +0000 |
| commit | d9a374f9a3ea925f204ca6d0bdc88b9d6c09f5b9 (patch) | |
| tree | 125f6fceee37795c072523255feff6c74dd0196a /t/lib | |
| parent | 47ae9dc79115de479a02ff8d99389c8fd39080ba (diff) | |
| download | perl-d9a374f9a3ea925f204ca6d0bdc88b9d6c09f5b9.tar.gz | |
Remove duplicated code.
p4raw-id: //depot/perl@7199
Diffstat (limited to 't/lib')
| -rwxr-xr-x | t/lib/cgi-html.t | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/t/lib/cgi-html.t b/t/lib/cgi-html.t index 21bbcfbe5a..50c840816b 100755 --- a/t/lib/cgi-html.t +++ b/t/lib/cgi-html.t @@ -33,14 +33,6 @@ sub test { print($true ? "ok $num\n" : "not ok $num $msg\n"); } -my $CRLF = "\015\012"; -if ($^O eq 'VMS') { - $CRLF = "\n"; # via web server carriage is inserted automatically -} -if (ord("\t") != 9) { # EBCDIC? - $CRLF = "\r\n"; -} - # all the automatic tags test(2,h1() eq '<h1 />',"single tag"); test(3,h1('fred') eq '<h1>fred</h1>',"open/close tag"); |