diff options
Diffstat (limited to 'scripts/sendmail.pl')
-rwxr-xr-x | scripts/sendmail.pl | 23 |
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); |