1
0
mirror of https://github.com/samba-team/samba.git synced 2025-01-11 05:18:09 +03:00

selftest: fix tar test with Pax format archives

we need to skip PaxHeader pseudo files

Signed-off-by: Bjoern Jacke <bj@sernet.de>
This commit is contained in:
Björn Jacke 2015-12-03 10:23:09 +01:00 committed by Bjoern Jacke
parent 412cefc7c8
commit f25d09a6eb

View File

@ -1063,8 +1063,12 @@ sub check_tar {
my $i = Archive::Tar->iter($tar, 1, {md5 => 1});
while (my $f = $i->()) {
if ($f->has_content) {
$total++;
my $p = $f->full_path;
# we skip pseudo files of Pax format archives
next if ($p =~ m/\/PaxHeader/);
$total++;
$p =~ s{^\./+}{};
# file that shouldn't be there