Pārlūkot izejas kodu

FIX: Zip - extract file with long name (> 100) from .tar archive in the pax format

Alexander Koblov 3 gadi atpakaļ
vecāks
revīzija
03e6a989d9
1 mainītis faili ar 0 papildinājumiem un 10 dzēšanām
  1. 0 10
      plugins/wcx/zip/src/fparchive/abtartyp.pas

+ 0 - 10
plugins/wcx/zip/src/fparchive/abtartyp.pas

@@ -2153,11 +2153,6 @@ begin
 
   if CurItem.ItemType in [UNKNOWN_ITEM] then
     raise EAbTarBadOp.Create; { Unsupported Type, Cannot Extract }
-  if (CurItem.ItemType = UNSUPPORTED_ITEM) and
-     ((Length(CurItem.FileName) >= AB_TAR_NAMESIZE) or
-      (Length(CurItem.LinkName) >= AB_TAR_NAMESIZE)) then
-    raise EAbTarBadOp.Create; { Unsupported Type, Cannot Extract }
-  { We will allow extractions if the file name/Link name are strickly less than 100 chars }
 
   { Link to previously archived file }
   if CurItem.LinkFlag in [AB_TAR_LF_LINK] then
@@ -2221,11 +2216,6 @@ begin
 
   if CurItem.ItemType in [UNKNOWN_ITEM] then
     raise EAbTarBadOp.Create; { Unsupported Type, Cannot Extract }
-  if (CurItem.ItemType = UNSUPPORTED_ITEM) and
-     ((Length(CurItem.FileName) >= AB_TAR_NAMESIZE) or
-      (Length(CurItem.LinkName) >= AB_TAR_NAMESIZE)) then
-    raise EAbTarBadOp.Create; { Unsupported Type, Cannot Extract }
-  { We will allow extractions if the file name is strictly less than 100 chars }
 
   FStream.Position := CurItem.StreamPosition+CurItem.FileHeaderCount*AB_TAR_RECORDSIZE;
   if CurItem.UncompressedSize <> 0 then