Skip to content

Commit

Permalink
send-email: Cleanup { style
Browse files Browse the repository at this point in the history
As Jakub Narebski pointed out on the list, Perl code usually prefers

  sub func {
  }

over

  sub func
  {
  }

git-send-email.perl is somewhat inconsistent in its style, with 23
subroutines using the first style and 6 using the second.  Convert the
few odd subroutines so that the code matches normal Perl style.

Signed-off-by: Brian Gernhardt <brian@gernhardtsoftware.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
  • Loading branch information
Brian Gernhardt authored and Junio C Hamano committed Apr 10, 2010
1 parent 134550f commit 68ce933
Showing 1 changed file with 6 additions and 12 deletions.
18 changes: 6 additions & 12 deletions git-send-email.perl
Original file line number Diff line number Diff line change
Expand Up @@ -752,8 +752,7 @@ sub extract_valid_address {
# We'll setup a template for the message id, using the "from" address:

my ($message_id_stamp, $message_id_serial);
sub make_message_id
{
sub make_message_id {
my $uniq;
if (!defined $message_id_stamp) {
$message_id_stamp = sprintf("%s-%s", time, $$);
Expand Down Expand Up @@ -808,8 +807,7 @@ sub is_rfc2047_quoted {
}

# use the simplest quoting being able to handle the recipient
sub sanitize_address
{
sub sanitize_address {
my ($recipient) = @_;
my ($recipient_name, $recipient_addr) = ($recipient =~ /^(.*?)\s*(<.*)/);

Expand Down Expand Up @@ -854,8 +852,7 @@ sub sanitize_address
# This maildomain*() code is based on ideas in Perl library Test::Reporter
# /usr/share/perl5/Test/Reporter/Mail/Util.pm ==> sub _maildomain ()

sub maildomain_net
{
sub maildomain_net {
my $maildomain;

if (eval { require Net::Domain; 1 }) {
Expand All @@ -867,8 +864,7 @@ sub maildomain_net
return $maildomain;
}

sub maildomain_mta
{
sub maildomain_mta {
my $maildomain;

if (eval { require Net::SMTP; 1 }) {
Expand All @@ -889,17 +885,15 @@ sub maildomain_mta
return $maildomain;
}

sub maildomain
{
sub maildomain {
return maildomain_net() || maildomain_mta() || $mail_domain_default;
}

# Returns 1 if the message was sent, and 0 otherwise.
# In actuality, the whole program dies when there
# is an error sending a message.

sub send_message
{
sub send_message {
my @recipients = unique_email_list(@to);
@cc = (grep { my $cc = extract_valid_address($_);
not grep { $cc eq $_ } @recipients
Expand Down

0 comments on commit 68ce933

Please sign in to comment.