mirror of
https://github.com/samba-team/samba.git
synced 2025-09-14 21:44:19 +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:
committed by
Bjoern Jacke
parent
412cefc7c8
commit
f25d09a6eb
@@ -1063,8 +1063,12 @@ sub check_tar {
|
|||||||
my $i = Archive::Tar->iter($tar, 1, {md5 => 1});
|
my $i = Archive::Tar->iter($tar, 1, {md5 => 1});
|
||||||
while (my $f = $i->()) {
|
while (my $f = $i->()) {
|
||||||
if ($f->has_content) {
|
if ($f->has_content) {
|
||||||
$total++;
|
|
||||||
my $p = $f->full_path;
|
my $p = $f->full_path;
|
||||||
|
|
||||||
|
# we skip pseudo files of Pax format archives
|
||||||
|
next if ($p =~ m/\/PaxHeader/);
|
||||||
|
|
||||||
|
$total++;
|
||||||
$p =~ s{^\./+}{};
|
$p =~ s{^\./+}{};
|
||||||
|
|
||||||
# file that shouldn't be there
|
# file that shouldn't be there
|
||||||
|
Reference in New Issue
Block a user