my $status = $1;
if ($status eq 'Not Installed') {
next;
- } elsif ($status ne 'Optimal') {
+ } elsif ($status ne 'Optimal' && $status ne 'ZMM Optimal') {
record('WARNING');
};
push @{$status{$status}}, 'Battery';
if ( -e 'UcliEvt.log' ) {
unlink('UcliEvt.log') or die ("Cannot unlink UcliEvt.log: $!\n");
}
+
+# Need to chdir out of tempdir in order to rm it in new perl
+chdir ('/') or die ("Cannot chdir /: $!\n");
+
print "$EXITCODE: ", join(" --- ", @resultstr), "\n";
exit $CODE{$EXITCODE};