Socket versions before 2.041 for Perl have an out-of-bounds heap read. In Socket.xs, pack_ip_mreq_source() checks the length of its source argument before the argument is read, so the check tests the byte length carried over from the preceding multiaddr argument instead. Both addresses occupy a 4-byte field, so a valid multiaddr lets a source of any length pass the check, and the source is then copied into the 4-byte imr_sourceaddr field with a fixed-size copy. A source shorter than 4 bytes is not rejected, and the copy reads up to 3 bytes past the end of its buffer. Calling pack_ip_mreq_source() with a source value shorter than 4 bytes copies adjacent heap memory into the returned packed structure.
{
"availability": "No subscription required",
"binaries": [
{
"binary_name": "libperl5.34",
"binary_version": "5.34.0-3ubuntu1.8"
},
{
"binary_name": "perl",
"binary_version": "5.34.0-3ubuntu1.8"
},
{
"binary_name": "perl-base",
"binary_version": "5.34.0-3ubuntu1.8"
},
{
"binary_name": "perl-debug",
"binary_version": "5.34.0-3ubuntu1.8"
},
{
"binary_name": "perl-modules-5.34",
"binary_version": "5.34.0-3ubuntu1.8"
}
]
}{
"availability": "No subscription required",
"binaries": [
{
"binary_name": "libperl5.38t64",
"binary_version": "5.38.2-3.2ubuntu0.4"
},
{
"binary_name": "perl",
"binary_version": "5.38.2-3.2ubuntu0.4"
},
{
"binary_name": "perl-base",
"binary_version": "5.38.2-3.2ubuntu0.4"
},
{
"binary_name": "perl-debug",
"binary_version": "5.38.2-3.2ubuntu0.4"
},
{
"binary_name": "perl-modules-5.38",
"binary_version": "5.38.2-3.2ubuntu0.4"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.40",
"binary_version": "5.40.1-6ubuntu0.1"
},
{
"binary_name": "perl",
"binary_version": "5.40.1-6ubuntu0.1"
},
{
"binary_name": "perl-base",
"binary_version": "5.40.1-6ubuntu0.1"
},
{
"binary_name": "perl-debug",
"binary_version": "5.40.1-6ubuntu0.1"
},
{
"binary_name": "perl-modules-5.40",
"binary_version": "5.40.1-6ubuntu0.1"
}
]
}{
"availability": "No subscription required",
"binaries": [
{
"binary_name": "libperl5.40",
"binary_version": "5.40.1-7ubuntu0.3"
},
{
"binary_name": "perl",
"binary_version": "5.40.1-7ubuntu0.3"
},
{
"binary_name": "perl-base",
"binary_version": "5.40.1-7ubuntu0.3"
},
{
"binary_name": "perl-debug",
"binary_version": "5.40.1-7ubuntu0.3"
},
{
"binary_name": "perl-modules-5.40",
"binary_version": "5.40.1-7ubuntu0.3"
}
]
}{
"availability": "Available with Ubuntu Pro with Legacy support add-on: https://ubuntu.com/pro",
"binaries": [
{
"binary_name": "libcgi-fast-perl",
"binary_version": "5.18.2-2ubuntu1.7+esm8"
},
{
"binary_name": "libperl5.18",
"binary_version": "5.18.2-2ubuntu1.7+esm8"
},
{
"binary_name": "perl",
"binary_version": "5.18.2-2ubuntu1.7+esm8"
},
{
"binary_name": "perl-base",
"binary_version": "5.18.2-2ubuntu1.7+esm8"
},
{
"binary_name": "perl-debug",
"binary_version": "5.18.2-2ubuntu1.7+esm8"
},
{
"binary_name": "perl-modules",
"binary_version": "5.18.2-2ubuntu1.7+esm8"
}
]
}{
"availability": "Available with Ubuntu Pro with Legacy support add-on: https://ubuntu.com/pro",
"binaries": [
{
"binary_name": "libperl5.22",
"binary_version": "5.22.1-9ubuntu0.9+esm3"
},
{
"binary_name": "perl",
"binary_version": "5.22.1-9ubuntu0.9+esm3"
},
{
"binary_name": "perl-base",
"binary_version": "5.22.1-9ubuntu0.9+esm3"
},
{
"binary_name": "perl-debug",
"binary_version": "5.22.1-9ubuntu0.9+esm3"
},
{
"binary_name": "perl-modules-5.22",
"binary_version": "5.22.1-9ubuntu0.9+esm3"
}
]
}{
"availability": "Available with Ubuntu Pro (Infra-only): https://ubuntu.com/pro",
"binaries": [
{
"binary_name": "libperl5.26",
"binary_version": "5.26.1-6ubuntu0.7+esm3"
},
{
"binary_name": "perl",
"binary_version": "5.26.1-6ubuntu0.7+esm3"
},
{
"binary_name": "perl-base",
"binary_version": "5.26.1-6ubuntu0.7+esm3"
},
{
"binary_name": "perl-debug",
"binary_version": "5.26.1-6ubuntu0.7+esm3"
},
{
"binary_name": "perl-modules-5.26",
"binary_version": "5.26.1-6ubuntu0.7+esm3"
}
]
}{
"availability": "Available with Ubuntu Pro (Infra-only): https://ubuntu.com/pro",
"binaries": [
{
"binary_name": "libperl5.30",
"binary_version": "5.30.0-9ubuntu0.5+esm3"
},
{
"binary_name": "perl",
"binary_version": "5.30.0-9ubuntu0.5+esm3"
},
{
"binary_name": "perl-base",
"binary_version": "5.30.0-9ubuntu0.5+esm3"
},
{
"binary_name": "perl-debug",
"binary_version": "5.30.0-9ubuntu0.5+esm3"
},
{
"binary_name": "perl-modules-5.30",
"binary_version": "5.30.0-9ubuntu0.5+esm3"
}
]
}