X-Git-Url: http://git.ieval.ro/?p=gruntmaster-data.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FApp%2FCommand%2FAdd.pm;h=8f84dc3dbbeea559815ff92a7f363262fe5966c8;hp=5e8b07a91e8564b4d60602675f4d691cf8350479;hb=e1b6fd19f5724ce68ee92aaeae1c0ddf7a6a2561;hpb=63afa40a4691cd73c543ff4f952beceb95db8841 diff --git a/lib/Gruntmaster/App/Command/Add.pm b/lib/Gruntmaster/App/Command/Add.pm index 5e8b07a..8f84dc3 100644 --- a/lib/Gruntmaster/App/Command/Add.pm +++ b/lib/Gruntmaster/App/Command/Add.pm @@ -3,7 +3,7 @@ package Gruntmaster::App::Command::Add; use 5.014000; use warnings; -our $VERSION = '5999.000_004'; +our $VERSION = '5999.000_014'; use Gruntmaster::App '-command'; use Gruntmaster::Data; @@ -48,8 +48,8 @@ sub add_contest { 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}); } @@ -150,7 +150,7 @@ Marius Gavrilescu, Emarius@ieval.roE =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,