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

* Cleanup session for the case that a webmodule instance is used for more then one request (wkPooled)

Browse Source 
git-svn-id: trunk@14528 -
This commit is contained in:
joost 2010-01-03 11:39:26 +00:00
parent b4c572483b
commit a8a332e029
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/fpweb.pp
View File

@ -465,6 +465,12 @@ begin
UpdateSession(AResponse); UpdateSession(AResponse);
FRequest := Nil; FRequest := Nil;
FResponse := Nil; FResponse := Nil;
// Clean up session for the case the webmodule is used again
if assigned(Session) then
begin
Session.Free;
Session := nil;
end;
{$ifdef cgidebug} {$ifdef cgidebug}
SendMethodExit('WebModule('+Name+').handlerequest'); SendMethodExit('WebModule('+Name+').handlerequest');
{$endif cgidebug} {$endif cgidebug}