--- Urlader/Urlader.pm 2012/01/02 09:23:03 1.1 +++ Urlader/Urlader.pm 2012/01/03 13:28:10 1.3 @@ -23,6 +23,7 @@ XSLoader::load __PACKAGE__, $VERSION; } +our $URLADER_VERSION; # only ste when running under urlader our $DATADIR; our $EXE_ID; our $EXE_VER; @@ -30,18 +31,18 @@ our $EXECDIR; # %AppData%/urlader/EXE_ID/i-EXE_VER sub _get_env { - $EXE_ID = getenv "URLADER_EXE_ID"; - $EXE_VER = getenv "URLADER_EXE_VER"; - $EXE_DIR = getenv "URLADER_EXE_DIR"; # %AppData%/urlader/EXE_ID - $EXECDIR = getenv "URLADER_EXECDIR"; # %AppData%/urlader/EXE_ID/i-EXE_VER + $URLADER_VERSION = getenv "URLADER_VERSION"; + $DATADIR = getenv "URLADER_DATADIR"; + $EXE_ID = getenv "URLADER_EXE_ID"; + $EXE_VER = getenv "URLADER_EXE_VER"; + $EXE_DIR = getenv "URLADER_EXE_DIR"; # %AppData%/urlader/EXE_ID + $EXECDIR = getenv "URLADER_EXECDIR"; # %AppData%/urlader/EXE_ID/i-EXE_VER } -_set_datadir unless defined getenv "URLADER_DATADIR"; -$DATADIR = getenv "URLADER_DATADIR"; - _get_env; sub set_exe_info($$) { + _set_datadir unless defined getenv "URLADER_DATADIR"; &_set_exe_info; _get_env; }