ansgar improvement suggestion;

hobo.pl

@@ -2593,15 +2593,18 @@ sub HandleArchiving {
     $file =~ s/%./.+/g; # ??? WTF IS THIS?
     $dir = ResolveDateWildcards($dir, localtime(gettimeofday()));
 
-    return if (!opendir(my $DH, $dir));
+    return if (!opendir my $DH, $dir);
 
-    my @files = sort grep {/^$file$/} readdir($DH);
+    my @files = grep {/^$file$/} readdir $DH;
 
     if (AttrVal('global', 'archivesort', 'alphanum') eq 'timestamp') {
         @files = map  { $_->[0] }
                  sort { $a->[1] <=> $b->[1] }
                  map  { [ $_, (stat("$dir/$_"))[9] ] } @files;
     }
+    else {
+        @files = sort @files;
+    }
     closedir $DH;
 
     my $max = @files - $nra;