1,5d0
< #
< # Modified for use in MacPerl by Paul Schinder <schinder@pjstoaster.pg.md.us>
< # 4/24/95
< # 4/27/95 Replaced \r and \n by the correct characters in parseRFC822head
< #
37c32
< require "GUSI.ph";
---
> require "sys/socket.ph";
84c79
<     $reqstr = "$method $object HTTP/1.0\015\012";
---
>     $reqstr = "$method $object HTTP/1.0\r\n";
89c84
<             $reqstr .= "$hd: $val\015\012";
---
>             $reqstr .= "$hd: $val\r\n";
92c87
<     $reqstr .= "\015\012";
---
>     $reqstr .= "\r\n";
111,113c106,107
< #   $that = pack('S n a4 x8', &main'AF_INET, $port, $thataddr);
<     $that = &GUSI'pack_sockaddr_in(&GUSI'AF_INET,$host,$port);
<     if (! socket(FS, &GUSI'AF_INET, &GUSI'SOCK_STREAM, 6))
---
>     $that = pack('S n a4 x8', &main'AF_INET, $port, $thataddr);
>     if (! socket(FS, &main'AF_INET, &main'SOCK_STREAM, 0))
123c117
<         #alarm($timeout);
---
>         alarm($timeout);
125c119
<         #alarm($timeout);
---
>         alarm($timeout);
130c124
<         $/ = "\012";
---
>         $/ = "\n";
135c129
<         #alarm($timeout);
---
>         alarm($timeout);
142,143c136,137
<                 #alarm($timeout);
<                 last if /^[\015\012]+$/;     # end of header
---
>                 alarm($timeout);
>                 last if /^[\r\n]+$/;     # end of header
159c153
<         #alarm(0);
---
>         alarm(0);
166c160
<         #alarm(0);
---
>         alarm(0);
200,201c194,195
<     s/\015//g;
<     s/\012\s+/ /g;
---
>     s/\r//g;
>     s/\n\s+/ /g;
203c197
<     @array = split('\012');
---
>     @array = split('\n');