cleanup globbing

Calling the glob function explicitly seems to be favored nowadays.

diff --git a/ssoma b/ssoma
index dfc7332f7c75139066fbd6095f680644fcf6ba18..c575e3df236ce252ceb917f77d43577afa128ff9 100755 (executable)
--- a/ssoma
+++ b/ssoma
@@ -176,7 +176,7 @@ sub cmd_add {
 
 sub foreach_list {
        my ($sub) = @_;
-       foreach my $dir (<$ENV{SSOMA_HOME}/*.git>) {
+       foreach my $dir (glob("$ENV{SSOMA_HOME}/*.git")) {
                -d $dir or next;
                $sub->($dir);
        }

diff --git a/t/extractor.t b/t/extractor.t
index c517d73be3a75a54e1f5f285ae92974889d07fdc..abad5b8048e34cdb788cca2fd5d6ecdf6a85d751 100644 (file)
--- a/t/extractor.t
+++ b/t/extractor.t
@@ -54,7 +54,7 @@ my $check_last = sub {
 
 {
        $ex->extract("mydir");
-       my @new = <$outdir/maildir/new/*>;
+       my @new = glob("$outdir/maildir/new/*");
        is(scalar @new, 1, "one file now exists in maildir");
        my $f = $new[0];
        open my $fh, '<', $f or die "opening $f failed: $!\n";
@@ -103,7 +103,7 @@ $mda->deliver($another);
 {
 
        $ex->extract("mydir");
-       my @new = <$outdir/maildir/new/*>;
+       my @new = glob("$outdir/maildir/new/*");
        is(scalar @new, 1, "one new file now exists in maildir");
        my $f = $new[0];
        open my $fh, '<', $f or die "opening $f failed: $!\n";
@@ -153,7 +153,7 @@ $mda->deliver($conflict);
 {
 
        $ex->extract("mydir");
-       my @new = <$outdir/maildir/new/*>;
+       my @new = glob("$outdir/maildir/new/*");
        is(scalar @new, 1, "one new file now exists in maildir");
        my $f = $new[0];
        open my $fh, '<', $f or die "opening $f failed: $!\n";