summaryrefslogtreecommitdiffstats
path: root/scripts/sendmail.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/sendmail.pl')
-rwxr-xr-xscripts/sendmail.pl23
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);