Problem se shutdown

[Borek Lupomesky]

   Hi all,

   Mam perl 5.005 v RH 5.2 (zkouseno i ve starsich verzich jak Perlu tak
RH). Nasledujici kod (jednoduchy finger klient) nefunguje, zrejme z duvodu
nefungujiciho volani shutdown()):

=-=-=-=-
use strict;
use Socket;

my ($paddr,$line);

$paddr = sockaddr_in(79, inet_aton("127.0.0.1"));

socket(S, PF_INET, SOCK_STREAM, getprotobyname("tcp"));
connect(S, $paddr);
print S "\n";
shutdown(S,1);
while ($line = <S>) {
  print $line;
}
close(S);
exit;
=-=-=-=-=-

   Perl je uplne nejnovejsi, takze uz vazne nevim, proc tak jednoducha vec
nechodi.

   Bye Borek


--

=====================================================================
BOREK LUPOMESKY, network administrator    University of J. E. Purkyne
WWW:       http://www.ujep.cz/~lupomesk/  Ceske mladeze 8
IRCnet:    Borek @ #usti                  Usti nad Labem, 40096
talk:      borek na ishtar.ujep.cz           The Czech Republic
PGP keyid: 9DD1C54D   ICQ: 10139578       tel: +420-602-376368
==========[ MIME/ISO-8859-2 & PGP encrypted mail welcome ]===========