X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;ds=sidebyside;f=gruntmaster-contest;h=c6d1db80325b289833d85494263df678c4f65065;hb=de599ce61e347edbf3f5cc4f2a4c1986aaeb016e;hp=856faae6d7698fbc08b396ccb6f07defd7b92444;hpb=30e287c3bec805e7d17eadc3cadf140f1da35a9c;p=gruntmaster-data.git

diff --git a/gruntmaster-contest b/gruntmaster-contest
index 856faae..c6d1db8 100755
--- a/gruntmaster-contest
+++ b/gruntmaster-contest
@@ -33,17 +33,18 @@ END
 }
 
 sub cmd_add{
-	my $id = shift;
+	my ($id) = @_;
 	my $name = prompt 'Contest name';
 	my $owner = prompt 'Owner';
 	my $start = str2time prompt 'Start time' or die 'Cannot parse time';
 	my $stop = str2time prompt 'Stop time' or die 'Cannot parse time';
 
-	$db->contests->create({id => $id, name => $name, owner => $owner, start => $start, stop => $stop})
+	$db->contests->create({id => $id, name => $name, owner => $owner, start => $start, stop => $stop});
 }
 
 sub cmd_rm{
-	$db->contest(shift)->delete
+	my ($id) = @_;
+	$db->contest(shift)->delete;
 }
 
 sub cmd_get{
@@ -53,7 +54,7 @@ sub cmd_get{
 
 sub cmd_set{
 	my ($id, %values) = @_;
-	$db->contest($id)->update(\%values)
+	$db->contest($id)->update(\%values);
 }
 
 ##################################################