no bug - reformat all the code using the new perltidy rules

1 files changed, 14 insertions, 9 deletions

diff --git a/scripts/sendmail.pl b/scripts/sendmail.pl
index aa9ab57a1..adf22a907 100755
--- a/scripts/sendmail.pl
+++ b/scripts/sendmail.pl
@@ -18,12 +18,17 @@ use warnings;
 
 use File::Basename;
 use File::Spec;
+
 BEGIN {
-    require lib;
-    my $dir = File::Spec->rel2abs(dirname(__FILE__));
-    my $base = File::Spec->catdir($dir, "..");
-    lib->import($base, File::Spec->catdir($base, "lib"), File::Spec->catdir($base, qw(local lib perl5)));
-    chdir $base;
+  require lib;
+  my $dir = File::Spec->rel2abs(dirname(__FILE__));
+  my $base = File::Spec->catdir($dir, "..");
+  lib->import(
+    $base,
+    File::Spec->catdir($base, "lib"),
+    File::Spec->catdir($base, qw(local lib perl5))
+  );
+  chdir $base;
 }
 
 use Bugzilla;
@@ -31,9 +36,9 @@ BEGIN { Bugzilla->extensions }
 use Bugzilla::Mailer;
 
 my $msg = do {
-    local $/ = undef;
-    binmode STDIN, ':bytes';
-    <STDIN>;
+  local $/ = undef;
+  binmode STDIN, ':bytes';
+  <STDIN>;
 };
 
-MessageToMTA($msg);
\ No newline at end of file
+MessageToMTA($msg);