Improve error message for ParseDate

This commit is contained in:
Pragmatic Software 2017-04-10 19:16:55 -07:00
parent be80680626
commit 0697035284
1 changed files with 2 additions and 1 deletions

View File

@ -30,7 +30,8 @@ sub parsedate {
my $parse = Time::ParseDate::parsedate($input, NOW => $now);
if (not defined $parse) {
return (0, "I don't know what '$input' means.\n");
$input =~ s/\s+$//;
return (0, "I don't know what '$input' means. I expected a time duration like '5 minutes' or '24 hours' or 'next tuesday'.\n");
} else {
$seconds += $parse - $now;
}