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_version": "5.34.0-3ubuntu1.7",
"binary_name": "libperl5.34"
},
{
"binary_version": "5.34.0-3ubuntu1.7",
"binary_name": "perl"
},
{
"binary_version": "5.34.0-3ubuntu1.7",
"binary_name": "perl-base"
},
{
"binary_version": "5.34.0-3ubuntu1.7",
"binary_name": "perl-debug"
},
{
"binary_version": "5.34.0-3ubuntu1.7",
"binary_name": "perl-modules-5.34"
}
]
}{
"binaries": [
{
"binary_version": "5.38.2-3.2ubuntu0.3",
"binary_name": "libperl5.38t64"
},
{
"binary_version": "5.38.2-3.2ubuntu0.3",
"binary_name": "perl"
},
{
"binary_version": "5.38.2-3.2ubuntu0.3",
"binary_name": "perl-base"
},
{
"binary_version": "5.38.2-3.2ubuntu0.3",
"binary_name": "perl-debug"
},
{
"binary_version": "5.38.2-3.2ubuntu0.3",
"binary_name": "perl-modules-5.38"
}
]
}{
"binaries": [
{
"binary_version": "5.40.1-6build1",
"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"
}
]
}{
"binaries": [
{
"binary_version": "5.40.1-7ubuntu0.1",
"binary_name": "libperl5.40"
},
{
"binary_version": "5.40.1-7ubuntu0.1",
"binary_name": "perl"
},
{
"binary_version": "5.40.1-7ubuntu0.1",
"binary_name": "perl-base"
},
{
"binary_version": "5.40.1-7ubuntu0.1",
"binary_name": "perl-debug"
},
{
"binary_version": "5.40.1-7ubuntu0.1",
"binary_name": "perl-modules-5.40"
}
]
}{
"binaries": [
{
"binary_version": "5.18.2-2ubuntu1.7+esm7",
"binary_name": "libcgi-fast-perl"
},
{
"binary_version": "5.18.2-2ubuntu1.7+esm7",
"binary_name": "libperl5.18"
},
{
"binary_version": "5.18.2-2ubuntu1.7+esm7",
"binary_name": "perl"
},
{
"binary_version": "5.18.2-2ubuntu1.7+esm7",
"binary_name": "perl-base"
},
{
"binary_version": "5.18.2-2ubuntu1.7+esm7",
"binary_name": "perl-debug"
},
{
"binary_version": "5.18.2-2ubuntu1.7+esm7",
"binary_name": "perl-modules"
}
]
}{
"binaries": [
{
"binary_version": "5.22.1-9ubuntu0.9+esm2",
"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"
}
]
}{
"binaries": [
{
"binary_version": "5.26.1-6ubuntu0.7+esm2",
"binary_name": "libperl5.26"
},
{
"binary_version": "5.26.1-6ubuntu0.7+esm2",
"binary_name": "perl"
},
{
"binary_version": "5.26.1-6ubuntu0.7+esm2",
"binary_name": "perl-base"
},
{
"binary_version": "5.26.1-6ubuntu0.7+esm2",
"binary_name": "perl-debug"
},
{
"binary_version": "5.26.1-6ubuntu0.7+esm2",
"binary_name": "perl-modules-5.26"
}
]
}{
"binaries": [
{
"binary_version": "5.30.0-9ubuntu0.5+esm2",
"binary_name": "libperl5.30"
},
{
"binary_version": "5.30.0-9ubuntu0.5+esm2",
"binary_name": "perl"
},
{
"binary_version": "5.30.0-9ubuntu0.5+esm2",
"binary_name": "perl-base"
},
{
"binary_version": "5.30.0-9ubuntu0.5+esm2",
"binary_name": "perl-debug"
},
{
"binary_version": "5.30.0-9ubuntu0.5+esm2",
"binary_name": "perl-modules-5.30"
}
]
}