https://bugs.documentfoundation.org/show_bug.cgi?id=139373
Bug ID: 139373
Summary: Private variables are not only available in the module
in which they are defined.
Product: LibreOffice
Version: 7.0.4.2 release
Hardware: x86-64 (AMD64)
OS: Linux (All)
Status: UNCONFIRMED
Severity: normal
Priority: medium
Component: BASIC
Assignee: libreoffice-bugs@lists.freedesktop.org
Reporter: nuk...@gmail.com
Description:
Private variables are not only available in the Module in which they are
defined. but even in all Modules of all Libraries except Standard Library.
Steps to Reproduce:
1. Create Module1 in Standard Library
'Option Explicit
Public varPublicS As
Integer
'Library: Standard
Global varGlobalS As
Integer
'Module: Module1
Private varPrivateS As
Integer
Dim varDimPrivateS As
Integer
Sub Main
End Sub
2. Create Library1 & Module3 in Library1
'Option Explicit
Public varPublicL1 As
Integer
'Library: Library1
Global varGlobalL1 As
Integer
'Module: Module3
Private varPrivateL1 As
Integer
Dim varDimPrivateL1 As
Integer
Sub Main
End Sub
3. Create Library2 & Module5 in Libray2
'Library: Library2
'Module: Module5
Sub Show_var_LL2M5_2
MsgBox _
“varDimPrivateS = “ &
varDimPrivateS & Chr(10) & _
“varPrivateS = “ &
varPrivateS & Chr(10) & _
“varGlobalS = “ &
varGlobalS & Chr(10) & _
“varPublicS = “ &
varPublicS & Chr(10) & _
“varDimPrivateL1 = “ &
varDimPrivateL1 & Chr(10) & _
“varPrivateL1 = “ &
varPrivateL1 & Chr(10) & _
“varGlobalL1 = “ &
varGlobalL1 & Chr(10) & _
“varPublicL1 = “ &
varPublicL1 _
,,"Sub
Show_var_LL2M5_2"
End Sub
Actual Results:
Sub Show_var_LL2M5_2
varDimPrivateL1 = 0
varPrivateS = 0
varGlobalS = 0
varPublicS = 0
varDimPrivateL1 = 0
varPrivateL1 = 0
varGlobalL1 = 0
varPublicL1 = 0
Expected Results:
varDimPrivateL1 =
varPrivateS =
varDimPrivateL1 =
varPrivateL1 =
Reproducible: Always
User Profile Reset: No
Additional Info:
Version: 7.0.4.2
Build ID: 00(Build:2)
CPU threads: 4; OS: Linux 5.9; UI render: default; VCL: gtk3
Locale: en-US (en_US.UTF-8); UI: en-US
Calc: threaded
--
You are receiving this mail because:
You are the assignee for the bug._______________________________________________
Libreoffice-bugs mailing list
Libreoffice-bugs@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
