Signed-off-by: Ryan Anderson <ryan@michonline.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
do {
$_ = $term->readline("Who should the emails appear to be from? ",
$from);
- while (!defined $_);
+ } while (!defined $_);
$from = $_;
print "Emails will be sent from: ", $from, "\n";
opendir(DH,$f)
or die "Failed to opendir $f: $!";
- push @files, map { +$f . "/" . $_ } grep { -f $_ }
+ push @files, grep { -f $_ } map { +$f . "/" . $_ }
sort readdir(DH);
} elsif (-f $f) {