* The ''Magic'' in the tar-header must be zero-terminated or else it is not

   recognized and the uname and gname are ignored.

git-svn-id: trunk@24345 -

packages/libtar/src/libtar.pp

@@ -536,7 +536,7 @@ BEGIN
     ftVolumeHeader : TH.LinkFlag := 'V';
     END;
   StrLCopy (TH.LinkName, PAnsiChar (DirRec.LinkName), NAMSIZ);
-  StrLCopy (TH.Magic, PAnsiChar (DirRec.Magic + #32#32#32#32#32#32#32#32), 8);
+  StrLCopy (TH.Magic, PAnsiChar (DirRec.Magic + #32#32#32#32#32#32#32#32), 7);
   StrLCopy (TH.UName, PAnsiChar (DirRec.UserName), TUNMLEN);
   StrLCopy (TH.GName, PAnsiChar (DirRec.GroupName), TGNMLEN);
   OctalN (DirRec.MajorDevNo, @TH.DevMajor, 8);