FORW: libwww patch for perl5

Roy T. Fielding (fielding@avron.ICS.UCI.EDU)
Mon, 09 Jan 1995 12:45:16 -0800 

------- Forwarded Message

From: Mike Ferrara <mikef@rtfm.sr.hp.com>
Message-Id: <9501061812.AA29175@rtfm.sr.hp.com>
Subject: libwww patch for perl5
To: fielding@ics.uci.edu
Date: Fri, 6 Jan 1995 10:12:33 -0800 (PST)

Roy-
  Below is a patch to wwwhttp.pl to make libwww run under perl5. This is
all I had to do! Neat package ... thanks.

-mike
-- 

  Mike Ferrara M/S 4USS
  HP Microwave Instruments Div R&D
  1400 Fountain Grove Pkwy
  Santa Rosa, CA 95403-1799
  (707) 577-4479
  mikef@sr.hp.com

diff from RCS's 0.15 to my perl5 version


----------------cut here------------------------------------
30a31
>
32d32
< require "sys/socket.ph";
33a34,37
> use Socket;  #For perl5 uncomment this
>
> #require "sys/socket.ph"; #For per4 uncomment this
>
35a40,49
> #perl5 below
> $AF_INET=Socket::AF_INET;
> $SOCK_STREAM=Socket::SOCK_STREAM;
> #end perl5
>
> #perl4 below
> #$AF_INET=&main'AF_INET;
> #$SOCK_STREAM=&main'SOCK_STREAM;
> #end per4
>
106,107c120,121
<     $that = pack('S n a4 x8', &main'AF_INET, $port, $thataddr);
<     if (! socket(FS, &main'AF_INET, &main'SOCK_STREAM, 0))
---
>     $that = pack('S n a4 x8', $AF_INET, $port, $thataddr);
>     if (! socket(FS, $AF_INET, $SOCK_STREAM, 0))

------- End of Forwarded Message