X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=submit%2Fremote-status;h=04610570f94c7796c7722283ba7566f7878b12d4;hb=d047668d020b301d034f0acd7f2873e926bba6e1;hp=3587b92708d0bad885e4e0528a36e79b11bda5f8;hpb=3079c7b8ef0db6f140c9faff5ab44dbf203d88e1;p=moe.git

diff --git a/submit/remote-status b/submit/remote-status
index 3587b92..0461057 100755
--- a/submit/remote-status
+++ b/submit/remote-status
@@ -6,7 +6,7 @@ use warnings;
 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;
@@ -41,7 +41,7 @@ foreach my $t ($r->getarray("(T")) {
 		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"), ", ",