summaryrefslogtreecommitdiffstats
path: root/extensions/BugModal/lib/Util.pm
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/BugModal/lib/Util.pm')
-rw-r--r--extensions/BugModal/lib/Util.pm28
1 files changed, 15 insertions, 13 deletions
diff --git a/extensions/BugModal/lib/Util.pm b/extensions/BugModal/lib/Util.pm
index 6a453159e..b1d7068d8 100644
--- a/extensions/BugModal/lib/Util.pm
+++ b/extensions/BugModal/lib/Util.pm
@@ -21,19 +21,21 @@ use DateTime::TimeZone;
use Time::Local qw(timelocal);
sub date_str_to_time {
- my ($date) = @_;
- # avoid creating a DateTime object
- if ($date =~ /^(\d{4})[\.\-](\d{2})[\.\-](\d{2}) (\d{2}):(\d{2}):(\d{2})$/) {
- return timelocal($6, $5, $4, $3, $2 - 1, $1 - 1900);
- }
- state $tz //= DateTime::TimeZone->new( name => 'local' );
- my $dt = datetime_from($date, $tz);
- if (!$dt) {
- # this should never happen
- warn("invalid datetime '$date'");
- return undef;
- }
- return $dt->epoch;
+ my ($date) = @_;
+
+ # avoid creating a DateTime object
+ if ($date =~ /^(\d{4})[\.\-](\d{2})[\.\-](\d{2}) (\d{2}):(\d{2}):(\d{2})$/) {
+ return timelocal($6, $5, $4, $3, $2 - 1, $1 - 1900);
+ }
+ state $tz //= DateTime::TimeZone->new(name => 'local');
+ my $dt = datetime_from($date, $tz);
+ if (!$dt) {
+
+ # this should never happen
+ warn("invalid datetime '$date'");
+ return undef;
+ }
+ return $dt->epoch;
}
1;