WSH and PerlScript

[Gintaras]

Although ExecuteStatement etc does not throw error, but it sets Error.Number to a nonzero value. Change two last lines to:

In PerlExec:

Code:

Copy      Help

_PerlScript.ExecuteStatement(statement); err end _error
if(_PerlScript.Error.Number) end VbsError(_PerlScript)

In PerlEval:

Code:

Copy      Help

VARIANT v=_PerlScript.Eval(expression); err end _error
if(_PerlScript.Error.Number) end VbsError(_PerlScript)
ret v

In PerlAddCode:

Code:

Copy      Help

_PerlScript.AddCode(code); err end _error
if(_PerlScript.Error.Number) end VbsError(_PerlScript)

In PerlFunc:

Code:

Copy      Help

VARIANT v=_PerlScript.Run(func &a); err end _error
if(_PerlScript.Error.Number) end VbsError(_PerlScript)
ret v