From 59d4ea352f0c69d694e92564aabbcc7d295d4991 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 7 Jul 2002 17:58:09 +0000
Subject: [PATCH]   * check for TZ variable added

---
 packages/extra/unzip/unzipdll.pp | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/packages/extra/unzip/unzipdll.pp b/packages/extra/unzip/unzipdll.pp
index 2e99d641b2..408d8b1862 100644
--- a/packages/extra/unzip/unzipdll.pp
+++ b/packages/extra/unzip/unzipdll.pp
@@ -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