check for 'tests_skipped' and 'tests_executed' keys before extracting and deleting.

This commit is contained in:
dataking 2017-03-24 13:02:13 -07:00
parent 97a17e28c1
commit 388dcf0fef

View File

@ -177,10 +177,14 @@ foreach my $key ( sort keys %lynis_report_data ) {
my (@tests_skipped, @tests_executed); my (@tests_skipped, @tests_executed);
my ($lynis_version); my ($lynis_version);
@tests_skipped = @{$lynis_report_data{'tests_skipped'}}; if (exists($lynis_report_data{'tests_skipped'})) {
delete($lynis_report_data{'tests_skipped'}); @tests_skipped = @{$lynis_report_data{'tests_skipped'}};
@tests_executed = @{$lynis_report_data{'tests_executed'}}; delete($lynis_report_data{'tests_skipped'});
delete($lynis_report_data{'tests_executed'}); }
if (exists($lynis_report_data{'tests_executed'})) {
@tests_executed = @{$lynis_report_data{'tests_executed'}};
delete($lynis_report_data{'tests_executed'});
}
if ($debug) { if ($debug) {
print Dumper(\%lynis_report_data); print Dumper(\%lynis_report_data);