diff options
Diffstat (limited to 'packages/libtar/src/libtar.pp')
| -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); |