BEGIN {
defined $ENV{"MO_ROOT"} or die "Please set MO_ROOT to the contest root directory first.\n";
}
-use lib $ENV{"MO_ROOT"} . "/submit";
+use lib $ENV{"MO_ROOT"} . "/lib/perl5";
use lib $ENV{"MO_ROOT"} . "/submit/lib/perl5";
use MO::Submit;
my $current_ver = $p->get("V");
my $printed = 0;
foreach my $v ($p->getarray("(V")) {
- if ($v && $v->get("V") == $current_ver) {
+ if ($v->get("V") == $current_ver) {
my $time = strftime("%H:%M:%S", localtime $v->get("T"));
print "OK (",
"$part.", $v->get("X"), ", ",