From 534eefa7029aaf49b0b673b6f6fb630752bb3fd5 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Wed, 18 Mar 2015 07:13:47 +0000
Subject: Pascal: service executing fix)

git-svn-id: http://svn.miranda-ng.org/main/trunk@12427 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Utils.pas/srvblock.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/Utils.pas/srvblock.pas')

diff --git a/plugins/Utils.pas/srvblock.pas b/plugins/Utils.pas/srvblock.pas
index ac01db8190..5ceb7a8fed 100644
--- a/plugins/Utils.pas/srvblock.pas
+++ b/plugins/Utils.pas/srvblock.pas
@@ -574,7 +574,7 @@ begin
     llparam:=PrepareParameter(service.l_flags,TLPARAM(service.lparam),data);
 
     res:=CallServiceSync(buf,lwparam,llparam);
-    ClearSubstData(data);
+//    ClearSubstData(data); DO NOT CLEAR!! (consist of input data)
 
     // result type processing
     case service.flags and ACF_TYPE_MASK of
-- 
cgit v1.2.3