* zero out timeval/zone before use. zoneinfo of gettimeofday is often

   no longer authorative and it fixes at least haiku. (mantis #32718 by Olivier)

git-svn-id: trunk@37612 -

packages/libtar/src/libtar.pp

@@ -302,6 +302,8 @@ BEGIN
   (*$ENDIF *) (*$WARNINGS ON *)
   (*$IFDEF Unix *)
      IF SearchRec.Attr AND faDirectory = 0 THEN BEGIN
+       FillChar(TimeVal, SizeOf(TimeVal), #0);
+       FillChar(TimeZone, SizeOf(TimeZone), #0);      
        Result := FileDateToDateTime (SearchRec.Time);
        {$IFDEF Kylix}
        GetTimeOfDay (TimeVal, TimeZone);