I hope everyone had a Happy New Year and all that jazz. Does anyone have Perl 5.8.0 up and running on MVS yet? We cannot get TCPIP sockets to work under Perl 5.8.0 and we have tested this on OS/390 2.10 (31-bit mode), OS/390 2.10 (64-bit mode), and z/OS 1.2 (64-bit). Attempts to read from a socket using IO::Socket all hang.
Our socket test scripts work fine using the Perl 5.6.1 build on all 3 of these MVS levels. Both the 5.6.1 and 5.8.0 builds pointed to the same /etc configuration and we have double-checked all of the items identified in the readme files (including README.os390). I have built both the static and dynamic loading versions of 5.8.0 with the same results. On the surface our builds look pretty clean with 97-99% of tests passing. In previous discussions, Mr. Prymmer indicated that the I/O model changed dramatically in this new release. I wonder if that is where the problem lies. Here is a snippet of code from my main test script: #!/usr/local/bin/perl my ($browser,$asc,$stk1,$stk2,@resp); use IO::Socket; $browser = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "90.70.104.64", PeerPort => "http(8080)" ) or die $@; $asc="GET http://quote.yahoo.com/d/quotes.csv?s=eds&f=sl1d1t1c1ohgv&e=.csv HTTP/1.0\n\n"; $asc=`echo '$asc'|iconv -f IBM-1047 -t ISO8859-1`; $browser->autoflush(1); $browser->send($asc) or die $@; my @resp=<$browser>; $stk1=`echo '@resp'|iconv -f ISO8859-1 -t IBM-1047|grep EDS`; print "Content-type: text/html\n\n"; print "<html><pre>"; print $stk1,"\n"; print "</html>\n"; close $browser; PeerAddr and PeerPort hit our corporate proxy so you may need to adjust accordingly. On Perl 5.6.1 I get back my stock quote but on 5.8.0 the script hangs on line 12 - the "my @resp=<$browser>;" - and a netstat shows the socket connection as Established but it never completes. We had hoped to be able to deploy Perl 5.8.0 with our z/OS 1.2 system around Feb 1. Any help is appreciated. Brad Van Duser EDS - BellSouth Account MS 6J72 BSC 675 West Peachtree Street Atlanta, GA 30308 * phone: +01-404-529-2923 * mailto:[EMAIL PROTECTED] * pager: +01-800-862-0399 PIN 17311309 * pager mailto:[EMAIL PROTECTED]
