debug.au3: single(') quote problem.

[anonymous]

file: debug.au3
function: __Debug_ReportWrite()

Problem: The $sData contend is not checked/adjusted for the precents of single(') quote-marks.
Needed to prevent the used function inside the Execute() function from failing on data strings that contain single quote marks.

input: $__gsReportCallBack_Debug = "ConsoleWrite("
input: $sData = " ' ' "
code: Execute($__gsReportCallBack_Debug & "'" & $sData & "')")
result: Execute(...) -> ConsoleWrite(' ' ' ') -> fails.

--- rest ---

Posible fix: (preceding Execute() line)

	If StringInStr($sData, "'") Then $sData = StringReplace($sData, "'", "''")
	;; or just
	$sData = StringReplace($sData, "'", "''")

Test code:

#include 'Debug.au3'
Enum $_logwin_ = 1, $_console_, $_msgbox_, $_file_
_DebugSetup(Default, False, $_console_, 'DebugOut.log')

$sTest = " '' " ;; returns " ' " as output.
_DebugReportVar('1) $sTest', $sTest)
_DebugOut('2) $sTest = ' & $sTest)
$sTest = " ' ' " ;; returns nothing, function inside execute() failed.
_DebugReportVar('3) $sTest', $sTest)
_DebugOut('4) $sTest = ' & $sTest)

[J-Paul Mesnage]

Fixed by revision [5817] in version: 3.3.7.0