diff --git a/git-send-email.perl b/git-send-email.perl
index edb12c2aaaa64a13d0c59f8432d2ddd7d1cf75bd..3564419e81694d84f4ebf036fe0df70277a81a98 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
push @files, grep { -f $_ } map { +$f . "/" . $_ }
sort readdir(DH);
- } elsif (-f $f) {
+ } elsif (-f $f or -p $f) {
push @files, $f;
} else {
if (!$no_validate) {
foreach my $f (@files) {
- my $error = validate_patch($f);
- $error and die "fatal: $f: $error\nwarning: no patches were sent\n";
+ unless (-p $f) {
+ my $error = validate_patch($f);
+ $error and die "fatal: $f: $error\nwarning: no patches were sent\n";
+ }
}
}
if ($smtp->code == 220) {
$smtp = Net::SMTP::SSL->start_SSL($smtp)
or die "STARTTLS failed! ".$smtp->message;
+ $smtp_encryption = '';
} else {
die "Server does not support STARTTLS! ".$smtp->message;
}