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); my $parse = Time::ParseDate::parsedate($input, NOW => $now);
if (not defined $parse) { 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 { } else {
$seconds += $parse - $now; $seconds += $parse - $now;
} }