mib17: prevent crash when VBAGlobals object is missing (this causes that document modules do not have an associated UNO object thus the DocObjectWrapper does not have a type provider)

1 files changed, 4 insertions, 4 deletions

diff --git a/basic/source/classes/sbxmod.cxx b/basic/source/classes/sbxmod.cxx
index 0f52eef2d825..e42193ac2696 100644
--- a/basic/source/classes/sbxmod.cxx
+++ b/basic/source/classes/sbxmod.cxx
@@ -121,16 +121,16 @@ class DocObjectWrapper : public DocObjectWrapper_BASE
 
 public:
     DocObjectWrapper( SbModule* pMod );
-    ~DocObjectWrapper();
+    virtual ~DocObjectWrapper();
 
     virtual void SAL_CALL acquire() throw();
     virtual void SAL_CALL release() throw();
 
-    virtual Sequence< sal_Int8 > SAL_CALL getImplementationId()
-        throw ( com::sun::star::uno::RuntimeException )
+    virtual Sequence< sal_Int8 > SAL_CALL getImplementationId() throw (RuntimeException)
     {
+        if( !m_xAggregateTypeProv.is() )
+            throw RuntimeException();
         return m_xAggregateTypeProv->getImplementationId();
-
     }
 
     virtual Reference< XIntrospectionAccess > SAL_CALL getIntrospection(  ) throw (RuntimeException);