Commits

Andreas Bregas  committed 06bbd30

mib19: #163566# Only call FindUnoClass if still pElem==NULL

  • Participants
  • Parent commits fe59354

Comments (0)

Files changed (1)

File basic/source/runtime/step2.cxx

 					else
 						pElem = getVBAConstant( aName );
 				}
-				// #72382 VORSICHT! Liefert jetzt wegen unbekannten
-				// Modulen IMMER ein Ergebnis!
-				SbUnoClass* pUnoClass = findUnoClass( aName );
-				if( pUnoClass )
+
+				if( !pElem )
 				{
-					pElem = new SbxVariable( t );
-					SbxValues aRes( SbxOBJECT );
-					aRes.pObj = pUnoClass;
-					pElem->SbxVariable::Put( aRes );
+					// #72382 VORSICHT! Liefert jetzt wegen unbekannten
+					// Modulen IMMER ein Ergebnis!
+					SbUnoClass* pUnoClass = findUnoClass( aName );
+					if( pUnoClass )
+					{
+						pElem = new SbxVariable( t );
+						SbxValues aRes( SbxOBJECT );
+						aRes.pObj = pUnoClass;
+						pElem->SbxVariable::Put( aRes );
+					}
 				}
 
 				// #62939 Wenn eine Uno-Klasse gefunden wurde, muss