paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 04:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for TZ variable added

Browse Source
This commit is contained in:
Tomas Hajny 2002-07-07 17:58:09 +00:00
parent f9f39bda33
commit 59d4ea352f
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/extra/unzip/unzipdll.pp
View File

@ -211,6 +211,13 @@ begin
begin
OldExit := ExitProc;
ExitProc := @NewExit;
if GetEnv ('TZ') = '' then
begin
WriteLn (#13#10'TZ variable was not found in your environment.');
WriteLn ('This variable is necessary for setting correct date/time of unpacked files.');
WriteLn ('Please, add it to your environment and restart this program afterwards.');
Halt (1);
end;
end else
begin
WriteLn (#13#10'Dynamic library UNZIP32.DLL from InfoZip is needed to unpack archives.');
@ -232,7 +239,10 @@ begin
end.
{
$Log$
Revision 1.2 2002-07-07 08:22:17 hajny
Revision 1.3 2002-07-07 17:58:09 hajny
* check for TZ variable added
Revision 1.2 2002/07/07 08:22:17 hajny
* warning message modified to be more general
Revision 1.1 2002/01/29 17:55:23 peter