Archive::Tar versions before 3.08 for Perl extract hardlinks to attacker controlled paths outside the extraction directory. makespecial_file() passes the tar header's linkname to link() without validating it against absolute paths or .. segments, creating a hardlink that shares the victim file's inode. A subsequent write through the extracted name modifies the victim file, and the post-extraction chmod, chown, and utime block in extractfile() (guarded only against symlinks via -l) applies the tar header's mode, owner, and timestamps to the shared inode during extraction alone.
{
"binaries": [
{
"binary_name": "libperl5.26",
"binary_version": "5.26.1-6ubuntu0.7"
},
{
"binary_name": "perl",
"binary_version": "5.26.1-6ubuntu0.7"
},
{
"binary_name": "perl-base",
"binary_version": "5.26.1-6ubuntu0.7"
},
{
"binary_name": "perl-debug",
"binary_version": "5.26.1-6ubuntu0.7"
},
{
"binary_name": "perl-modules-5.26",
"binary_version": "5.26.1-6ubuntu0.7"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.30",
"binary_version": "5.30.0-9ubuntu0.5"
},
{
"binary_name": "perl",
"binary_version": "5.30.0-9ubuntu0.5"
},
{
"binary_name": "perl-base",
"binary_version": "5.30.0-9ubuntu0.5"
},
{
"binary_name": "perl-debug",
"binary_version": "5.30.0-9ubuntu0.5"
},
{
"binary_name": "perl-modules-5.30",
"binary_version": "5.30.0-9ubuntu0.5"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.34",
"binary_version": "5.34.0-3ubuntu1.5"
},
{
"binary_name": "perl",
"binary_version": "5.34.0-3ubuntu1.5"
},
{
"binary_name": "perl-base",
"binary_version": "5.34.0-3ubuntu1.5"
},
{
"binary_name": "perl-debug",
"binary_version": "5.34.0-3ubuntu1.5"
},
{
"binary_name": "perl-modules-5.34",
"binary_version": "5.34.0-3ubuntu1.5"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.38t64",
"binary_version": "5.38.2-3.2ubuntu0.2"
},
{
"binary_name": "perl",
"binary_version": "5.38.2-3.2ubuntu0.2"
},
{
"binary_name": "perl-base",
"binary_version": "5.38.2-3.2ubuntu0.2"
},
{
"binary_name": "perl-debug",
"binary_version": "5.38.2-3.2ubuntu0.2"
},
{
"binary_name": "perl-modules-5.38",
"binary_version": "5.38.2-3.2ubuntu0.2"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.40",
"binary_version": "5.40.1-6build1"
},
{
"binary_name": "perl",
"binary_version": "5.40.1-6build1"
},
{
"binary_name": "perl-base",
"binary_version": "5.40.1-6build1"
},
{
"binary_name": "perl-debug",
"binary_version": "5.40.1-6build1"
},
{
"binary_name": "perl-modules-5.40",
"binary_version": "5.40.1-6build1"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.40",
"binary_version": "5.40.1-7build1"
},
{
"binary_name": "perl",
"binary_version": "5.40.1-7build1"
},
{
"binary_name": "perl-base",
"binary_version": "5.40.1-7build1"
},
{
"binary_name": "perl-debug",
"binary_version": "5.40.1-7build1"
},
{
"binary_name": "perl-modules-5.40",
"binary_version": "5.40.1-7build1"
}
]
}{
"binaries": [
{
"binary_name": "libcgi-fast-perl",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "libperl5.18",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "perl",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "perl-base",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "perl-debug",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "perl-modules",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.22",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
},
{
"binary_name": "perl",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
},
{
"binary_name": "perl-base",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
},
{
"binary_name": "perl-debug",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
},
{
"binary_name": "perl-modules-5.22",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
}
]
}