From 8ec8da0491ad89604700b3e29a227966f6d84ba1 Mon Sep 17 00:00:00 2001
From: Perl Tidy <perltidy@bugzilla.org>
Date: Wed, 5 Dec 2018 15:38:52 -0500
Subject: no bug - reformat all the code using the new perltidy rules

---
 extensions/BugModal/lib/Util.pm | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

(limited to 'extensions/BugModal/lib/Util.pm')

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;
-- 
cgit v1.2.3-24-g4f1b