summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--basic/source/runtime/methods.cxx7
1 files changed, 5 insertions, 2 deletions
diff --git a/basic/source/runtime/methods.cxx b/basic/source/runtime/methods.cxx
index 2e44228db99e..11ce5c35a34d 100644
--- a/basic/source/runtime/methods.cxx
+++ b/basic/source/runtime/methods.cxx
@@ -2,9 +2,9 @@
*
* $RCSfile: methods.cxx,v $
*
- * $Revision: 1.40 $
+ * $Revision: 1.41 $
*
- * last change: $Author: ab $ $Date: 2002-06-06 14:59:05 $
+ * last change: $Author: ab $ $Date: 2002-08-07 13:11:07 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@@ -1961,6 +1961,9 @@ RTLFUNC(IsObject)
SbxVariable* pVar = rPar.Get(1);
SbxBase* pObj = (SbxBase*)pVar->GetObject();
+ // #100385: GetObject can result in an error, so reset it
+ SbxBase::ResetError();
+
SbUnoClass* pUnoClass;
BOOL bObject;
if( pObj && NULL != ( pUnoClass=PTR_CAST(SbUnoClass,pObj) ) )