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';
+ my $start = str2time prompt 'Start time' or die "Cannot parse time\n";
+ my $stop = str2time prompt 'Stop time' or die "Cannot parse time\n";
db->insert(contests => {id => $id, name => $name, owner => $owner, start => $start, stop => $stop});
}
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2015 by Marius Gavrilescu
+Copyright (C) 2014-2015 by Marius Gavrilescu
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.20.1 or,