[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/UtilProperty.xba |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

New commits:
commit 77801cd501af08f41099feef36a72001ee6c84b4
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Sun Dec 6 15:47:06 2015 +0100

    Access2Base - Option Explicit in UtilProperty module
    
    Change-Id: Iab982421be37e670201561b67cc66fb91d30de91

diff --git a/wizards/source/access2base/UtilProperty.xba b/wizards/source/access2base/UtilProperty.xba
index b265550..6fbe105 100644
--- a/wizards/source/access2base/UtilProperty.xba
+++ b/wizards/source/access2base/UtilProperty.xba
@@ -24,6 +24,8 @@ REM ============================================================================
 '		Jean-Pierre Ledure		Adapted to Access2Base coding conventions
 '**********************************************************************
 
+Option Explicit
+
 REM =======================================================================================================================
 Public Function _MakePropertyValue(ByVal Optional psName As String, Optional pvValue As Variant) As com.sun.star.beans.PropertyValue
 '   Create and return a new com.sun.star.beans.PropertyValue.
@@ -72,7 +74,7 @@ Public Function _FindProperty(pvPropertyValuesArray, ByVal psPropName As String)
 ' Find a particular named property from an array of PropertyValue's.
 ' Finds the PropertyValue and returns it, or returns Null if not found.
 
-Dim iPropIndex As Integer
+Dim iPropIndex As Integer, vProp As Variant
 	iPropIndex = _FindPropertyIndex(pvPropertyValuesArray, psPropName)
 	If iPropIndex >= 0 Then
 		vProp = pvPropertyValuesArray(iPropIndex) ' access array subscript