paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 21:40:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added shutdown() call before close

Browse Source
This commit is contained in:
michael 2000-01-21 09:15:38 +00:00
parent b4f654100d
commit 65b9717fb3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
docs/sockex/pfinger.pp
View File

@ -3,7 +3,7 @@ program pfinger;
uses sockets,errors;
Var Addr : TInetSockAddr;
S : Longint;
S : Longint;
Sin,Sout : Text;
Line : string;
@ -29,6 +29,7 @@ begin
readln (Sin,line);
writeln (line);
end;
Shutdown(s,2);
close (sin);
close (sout);
end.