IO::socket close() and "bad file descriptor"

[Keddie, Diane]

We are working on an application that makes a socket connection to our
mainframe to get information.  The code we use for the socket connection is
as follows:

my $sock = IO::Socket::INET->new(
   PeerAddr=> '$host',
   PeerPort=> '$port',
   Proto => '$protocol',
   Type => SOCK_STREAM) 
   or $code='99'; 

print $sock "GET /$app/$tranid/$program/$function?$queryString";
 
while($answer = <$sock>){
     foreach (keys %{$ret_codes}){
     ...........
   }

my $close=close($sock);

The socket connection works, and we get the appropriate information back
from our mainframe scripts.  However, the return value from close($sock) is
1 with "Bad file number" in $!.  Should we be concerned that the socket
connection is not closing properly and could cause other problems?

--Diane






-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]