[tyndur-devel] [PATCH 2/4] Pascal-RTL: tar: Dateityp überprüfen

[Kevin Wolf <kevin@xxxxxxxxxx>]

! Pascal-RTL: tar: Vor dem Entpacken überprüfen, ob der aktuelle Eintrag
  überhaupt eine reguläre Datei ist

Signed-off-by: Kevin Wolf <kevin@xxxxxxxxxx>
---
 src/modules/pas/lib/tar/tar.pas |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/src/modules/pas/lib/tar/tar.pas b/src/modules/pas/lib/tar/tar.pas
index abe3b28..2faeee9 100644
--- a/src/modules/pas/lib/tar/tar.pas
+++ b/src/modules/pas/lib/tar/tar.pas
@@ -191,6 +191,10 @@ begin
     size := NextSize;
     filename := NextFilename;
 
+    if NextFiletype <> TAR_TYPE_FILE then begin
+        exit('');
+    end;
+
     target := '';
 
     if not silent then begin
@@ -236,6 +240,10 @@ begin
     size := NextSize;
     filename := NextFilename;
 
+    if NextFiletype <> TAR_TYPE_FILE then begin
+        exit;
+    end;
+
     Write('[', filename, '] Entpacken...');
     for i := 1 to size div TAR_BUFFER_SIZE do begin
         buffer_pos := 0;
-- 
1.6.0.2