This update for Perl fixes the following issues :
CVE-2016-6185: Xsloader looking at a ‘(eval)’ directory.
(bsc#988311)
CVE-2016-1238: Searching current directory for optional modules. (bsc#987887)
CVE-2015-8853: Regular expression engine hanging on bad utf8. (bsc)
CVE-2016-2381: Environment dup handling bug.
(bsc#967082)
‘Insecure dependency in require’ error in taint mode.
(bsc#984906)
Memory leak in ‘use utf8’ handling. (bsc#928292)
Missing lock prototype to the debugger. (bsc#932894)
Note that Tenable Network Security has extracted the preceding description block directly from the SUSE security advisory. Tenable has attempted to automatically clean and format it as much as possible without introducing additional issues.
#%NASL_MIN_LEVEL 70300
#
# (C) Tenable Network Security, Inc.
#
# The descriptive text and package checks in this plugin were
# extracted from SUSE update advisory SUSE-SU-2016:2263-1.
# The text itself is copyright (C) SUSE.
#
include('deprecated_nasl_level.inc');
include('compat.inc');
if (description)
{
script_id(93437);
script_version("2.8");
script_set_attribute(attribute:"plugin_modification_date", value:"2021/01/06");
script_cve_id("CVE-2015-8853", "CVE-2016-1238", "CVE-2016-2381", "CVE-2016-6185");
script_name(english:"SUSE SLED12 / SLES12 Security Update : perl (SUSE-SU-2016:2263-1)");
script_summary(english:"Checks rpm output for the updated packages.");
script_set_attribute(
attribute:"synopsis",
value:"The remote SUSE host is missing one or more security updates."
);
script_set_attribute(
attribute:"description",
value:
"This update for Perl fixes the following issues :
- CVE-2016-6185: Xsloader looking at a '(eval)' directory.
(bsc#988311)
- CVE-2016-1238: Searching current directory for optional
modules. (bsc#987887)
- CVE-2015-8853: Regular expression engine hanging on bad
utf8. (bsc)
- CVE-2016-2381: Environment dup handling bug.
(bsc#967082)
- 'Insecure dependency in require' error in taint mode.
(bsc#984906)
- Memory leak in 'use utf8' handling. (bsc#928292)
- Missing lock prototype to the debugger. (bsc#932894)
Note that Tenable Network Security has extracted the preceding
description block directly from the SUSE security advisory. Tenable
has attempted to automatically clean and format it as much as possible
without introducing additional issues."
);
script_set_attribute(
attribute:"see_also",
value:"https://bugzilla.suse.com/show_bug.cgi?id=928292"
);
script_set_attribute(
attribute:"see_also",
value:"https://bugzilla.suse.com/show_bug.cgi?id=932894"
);
script_set_attribute(
attribute:"see_also",
value:"https://bugzilla.suse.com/show_bug.cgi?id=967082"
);
script_set_attribute(
attribute:"see_also",
value:"https://bugzilla.suse.com/show_bug.cgi?id=984906"
);
script_set_attribute(
attribute:"see_also",
value:"https://bugzilla.suse.com/show_bug.cgi?id=987887"
);
script_set_attribute(
attribute:"see_also",
value:"https://bugzilla.suse.com/show_bug.cgi?id=988311"
);
script_set_attribute(
attribute:"see_also",
value:"https://www.suse.com/security/cve/CVE-2015-8853/"
);
script_set_attribute(
attribute:"see_also",
value:"https://www.suse.com/security/cve/CVE-2016-1238/"
);
script_set_attribute(
attribute:"see_also",
value:"https://www.suse.com/security/cve/CVE-2016-2381/"
);
script_set_attribute(
attribute:"see_also",
value:"https://www.suse.com/security/cve/CVE-2016-6185/"
);
# https://www.suse.com/support/update/announcement/2016/suse-su-20162263-1/
script_set_attribute(
attribute:"see_also",
value:"http://www.nessus.org/u?beccfb06"
);
script_set_attribute(
attribute:"solution",
value:
"To install this SUSE Security Update use YaST online_update.
Alternatively you can run the command listed for your product :
SUSE Linux Enterprise Server 12-SP1:zypper in -t patch
SUSE-SLE-SERVER-12-SP1-2016-1326=1
SUSE Linux Enterprise Desktop 12-SP1:zypper in -t patch
SUSE-SLE-DESKTOP-12-SP1-2016-1326=1
To bring your system up-to-date, use 'zypper patch'."
);
script_set_cvss_base_vector("CVSS2#AV:L/AC:L/Au:N/C:C/I:C/A:C");
script_set_cvss_temporal_vector("CVSS2#E:U/RL:OF/RC:C");
script_set_cvss3_base_vector("CVSS:3.0/AV:L/AC:L/PR:L/UI:N/S:U/C:H/I:H/A:H");
script_set_cvss3_temporal_vector("CVSS:3.0/E:U/RL:O/RC:C");
script_set_attribute(attribute:"exploitability_ease", value:"No known exploits are available");
script_set_attribute(attribute:"exploit_available", value:"false");
script_set_attribute(attribute:"plugin_type", value:"local");
script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:suse_linux:perl");
script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:suse_linux:perl-base");
script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:suse_linux:perl-base-debuginfo");
script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:suse_linux:perl-debuginfo");
script_set_attribute(attribute:"cpe", value:"p-cpe:/a:novell:suse_linux:perl-debugsource");
script_set_attribute(attribute:"cpe", value:"cpe:/o:novell:suse_linux:12");
script_set_attribute(attribute:"vuln_publication_date", value:"2016/04/08");
script_set_attribute(attribute:"patch_publication_date", value:"2016/09/08");
script_set_attribute(attribute:"plugin_publication_date", value:"2016/09/12");
script_set_attribute(attribute:"generated_plugin", value:"current");
script_end_attributes();
script_category(ACT_GATHER_INFO);
script_copyright(english:"This script is Copyright (C) 2016-2021 and is owned by Tenable, Inc. or an Affiliate thereof.");
script_family(english:"SuSE Local Security Checks");
script_dependencies("ssh_get_info.nasl");
script_require_keys("Host/local_checks_enabled", "Host/cpu", "Host/SuSE/release", "Host/SuSE/rpm-list");
exit(0);
}
include("audit.inc");
include("global_settings.inc");
include("rpm.inc");
if (!get_kb_item("Host/local_checks_enabled")) audit(AUDIT_LOCAL_CHECKS_NOT_ENABLED);
release = get_kb_item("Host/SuSE/release");
if (isnull(release) || release !~ "^(SLED|SLES)") audit(AUDIT_OS_NOT, "SUSE");
os_ver = pregmatch(pattern: "^(SLE(S|D)\d+)", string:release);
if (isnull(os_ver)) audit(AUDIT_UNKNOWN_APP_VER, "SUSE");
os_ver = os_ver[1];
if (! preg(pattern:"^(SLED12|SLES12)$", string:os_ver)) audit(AUDIT_OS_NOT, "SUSE SLED12 / SLES12", "SUSE " + os_ver);
if (!get_kb_item("Host/SuSE/rpm-list")) audit(AUDIT_PACKAGE_LIST_MISSING);
cpu = get_kb_item("Host/cpu");
if (isnull(cpu)) audit(AUDIT_UNKNOWN_ARCH);
if (cpu !~ "^i[3-6]86$" && "x86_64" >!< cpu && "s390x" >!< cpu) audit(AUDIT_LOCAL_CHECKS_NOT_IMPLEMENTED, "SUSE " + os_ver, cpu);
sp = get_kb_item("Host/SuSE/patchlevel");
if (isnull(sp)) sp = "0";
if (os_ver == "SLES12" && (! preg(pattern:"^(1)$", string:sp))) audit(AUDIT_OS_NOT, "SLES12 SP1", os_ver + " SP" + sp);
if (os_ver == "SLED12" && (! preg(pattern:"^(1)$", string:sp))) audit(AUDIT_OS_NOT, "SLED12 SP1", os_ver + " SP" + sp);
flag = 0;
if (rpm_check(release:"SLES12", sp:"1", reference:"perl-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLES12", sp:"1", reference:"perl-base-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLES12", sp:"1", reference:"perl-base-debuginfo-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLES12", sp:"1", reference:"perl-debuginfo-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLES12", sp:"1", reference:"perl-debugsource-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLES12", sp:"1", reference:"perl-32bit-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLES12", sp:"1", reference:"perl-debuginfo-32bit-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLED12", sp:"1", cpu:"x86_64", reference:"perl-32bit-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLED12", sp:"1", cpu:"x86_64", reference:"perl-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLED12", sp:"1", cpu:"x86_64", reference:"perl-base-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLED12", sp:"1", cpu:"x86_64", reference:"perl-base-debuginfo-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLED12", sp:"1", cpu:"x86_64", reference:"perl-debuginfo-32bit-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLED12", sp:"1", cpu:"x86_64", reference:"perl-debuginfo-5.18.2-11.1")) flag++;
if (rpm_check(release:"SLED12", sp:"1", cpu:"x86_64", reference:"perl-debugsource-5.18.2-11.1")) flag++;
if (flag)
{
if (report_verbosity > 0) security_hole(port:0, extra:rpm_report_get());
else security_hole(0);
exit(0);
}
else
{
tested = pkg_tests_get();
if (tested) audit(AUDIT_PACKAGE_NOT_AFFECTED, tested);
else audit(AUDIT_PACKAGE_NOT_INSTALLED, "perl");
}
Vendor | Product | Version | CPE |
---|---|---|---|
novell | suse_linux | perl | p-cpe:/a:novell:suse_linux:perl |
novell | suse_linux | perl-base | p-cpe:/a:novell:suse_linux:perl-base |
novell | suse_linux | perl-base-debuginfo | p-cpe:/a:novell:suse_linux:perl-base-debuginfo |
novell | suse_linux | perl-debuginfo | p-cpe:/a:novell:suse_linux:perl-debuginfo |
novell | suse_linux | perl-debugsource | p-cpe:/a:novell:suse_linux:perl-debugsource |
novell | suse_linux | 12 | cpe:/o:novell:suse_linux:12 |
cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2015-8853
cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2016-1238
cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2016-2381
cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2016-6185
www.nessus.org/u?beccfb06
bugzilla.suse.com/show_bug.cgi?id=928292
bugzilla.suse.com/show_bug.cgi?id=932894
bugzilla.suse.com/show_bug.cgi?id=967082
bugzilla.suse.com/show_bug.cgi?id=984906
bugzilla.suse.com/show_bug.cgi?id=987887
bugzilla.suse.com/show_bug.cgi?id=988311
www.suse.com/security/cve/CVE-2015-8853/
www.suse.com/security/cve/CVE-2016-1238/
www.suse.com/security/cve/CVE-2016-2381/
www.suse.com/security/cve/CVE-2016-6185/