send-email: use lexical filehandle for opendir

diff --git a/git-send-email.perl b/git-send-email.perl
index 8cc416115569e38317e63d1638d361d579518b73..2f18d83074b70a7ed31b6ce4fe07d5d0c48afcb3 100755 (executable)
--- a/git-send-email.perl
+++ b/git-send-email.perl
@@ -512,12 +512,12 @@ ($)
                push @rev_list_opts, "--", @ARGV;
                @ARGV = ();
        } elsif (-d $f and !check_file_rev_conflict($f)) {
-               opendir(DH,$f)
+               opendir my $dh, $f
                        or die "Failed to opendir $f: $!";
 
                push @files, grep { -f $_ } map { catfile($f, $_) }
-                               sort readdir(DH);
-               closedir(DH);
+                               sort readdir $dh;
+               closedir $dh;
        } elsif ((-f $f or -p $f) and !check_file_rev_conflict($f)) {
                push @files, $f;
        } else {