From 171ddf5c57d41decdbee219122700d099345d4a0 Mon Sep 17 00:00:00 2001
From: Jacek Caban <jacek@codeweavers.com>
Date: Fri, 21 Mar 2014 14:38:33 +0100
Subject: [PATCH] vbscript: Added Err.Clear implementation.

---
 dlls/vbscript/global.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c
index c2b16e221d8..9b6ca482764 100644
--- a/dlls/vbscript/global.c
+++ b/dlls/vbscript/global.c
@@ -1907,8 +1907,13 @@ static HRESULT Err_Source(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARI
 
 static HRESULT Err_Clear(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    TRACE("\n");
+
+    if(!This->desc)
+        return E_UNEXPECTED;
+
+    This->desc->ctx->err_number = S_OK;
+    return S_OK;
 }
 
 static HRESULT Err_Raise(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)