diff options
| author | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-04-27 18:20:48 +0000 |
|---|---|---|
| committer | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-04-27 18:20:48 +0000 |
| commit | a6a2aa1bd040382ca019fb2070c26b4dea047266 (patch) | |
| tree | 11981e36488af6eea3b58eeebbc6f156d2751acf | |
| parent | fa30b28cbcc9e03ac87d7ddcfa634177565f0d5f (diff) | |
| download | fpc-a6a2aa1bd040382ca019fb2070c26b4dea047266.tar.gz | |
* 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: http://svn.freepascal.org/svn/fpc/trunk@24345 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/libtar/src/libtar.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/libtar/src/libtar.pp b/packages/libtar/src/libtar.pp index c891ec391b..10d8d9693f 100644 --- a/packages/libtar/src/libtar.pp +++ b/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); |