Found use of die. Use an exception instead at line 38, column 8. Exception objects
should be used instead of the standard Perl error mechanism. (Severity: 4)
####
$hECO = retrieve($ECO_path)
or die "Couldn't open $ECO_path : $!";
$hNIC = retrieve($NIC_path)
or die "Couldn't open $NIC_path : $!";
$hOpening = retrieve($Opening_path)
or die "Couldn't open $Opening_path : $!";
##
##
eval {
$hECO = retrieve($ECO_path);
1;
} or do {
print "Couldn't open $ECO_path : $@";
exit;
}
eval {
$hNIC = retrieve($NIC_path);
1;
} or do {
print "Couldn't open $NIC_path : $@";
exit;
}
eval {
$hOpening = retrieve($Opening_path);
1;
} or do {
print "Couldn't open $Opening_path : $@";
exit;
}