pmodules/Pmodules
1
0
Fork 0
mirror of https://github.com/Pmodules/Pmodules.git synced 2026-06-28 10:29:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Pmodules/libmodules.tcl:

Browse Source 
- prefix global variables with 'g_'
This commit is contained in:
gsell
2017-03-01 14:04:36 +01:00
parent 8f1c469a98
commit 0cd1c02775
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Pmodules/libmodules.tcl
+16 -16
View File
@@ -228,20 +228,20 @@ proc _pmodules_setenv { PREFIX name version } {
}
}
proc module-url { _url } {
set ::url ${_url}
proc module-url { url } {
set ::g_url ${url}
}
proc module-license { _license } {
set ::license ${_license}
proc module-license { license } {
set ::g_license ${license}
}
proc module-maintainer { _maintainer } {
set ::maintainer ${_maintainer}
proc module-maintainer { maintainer } {
set ::g_maintainer ${maintainer}
}
proc module-help { _help } {
set ::help ${_help}
proc module-help { help } {
set ::g_help ${help}
}
proc ModulesHelp { } {
@@ -255,17 +255,17 @@ proc ModulesHelp { } {
} else {
module whatis
}
if { [info exists ::url] } {
puts stderr "Homepage: ${::url}"
if { [info exists ::g_url] } {
puts stderr "Homepage: ${::g_url}"
}
if { [info exists ::license] } {
puts stderr "License: ${::license}"
if { [info exists ::g_license] } {
puts stderr "License: ${::g_license}"
}
if { [info exists ::maintainer] } {
puts stderr "Maintainer: ${::maintainer}"
if { [info exists ::g_maintainer] } {
puts stderr "Maintainer: ${::g_maintainer}"
}
if { [info exists ::help] } {
puts stderr "${::help}\n"
if { [info exists ::g_help] } {
puts stderr "${::g_help}\n"
}
}