diff options
author | Eric Wong <e@yhbt.net> | 2020-05-02 21:22:10 +0000 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-05-05 08:07:06 +0000 |
commit | 3a5649ffced3f29e3bbc3ea4b539a28972eb36a9 (patch) | |
tree | a519e73daff9049724bd4c8d191ff11ada566b91 | |
parent | ff53e6728ff67fef548f0f472c1918a00d7104f7 (diff) | |
download | public-inbox-3a5649ffced3f29e3bbc3ea4b539a28972eb36a9.tar.gz |
glob() sorts alphabetically by default, which doesn't have a useful meaning with many articles. Stop wasting CPU cycles and memory.
-rwxr-xr-x | scripts/slrnspool2maildir | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/slrnspool2maildir b/scripts/slrnspool2maildir index 8e444e84..c36de0c9 100755 --- a/scripts/slrnspool2maildir +++ b/scripts/slrnspool2maildir @@ -10,6 +10,7 @@ use strict; use warnings; use Email::Filter; use Email::LocalDelivery; +use File::Glob qw(bsd_glob GLOB_NOSORT); sub usage { "Usage:\n".join('',grep(/\t/, `head -n 12 $0`)) } my $spool = shift @ARGV or die usage(); my $dir = shift @ARGV or die usage(); @@ -21,7 +22,7 @@ foreach my $sub (qw(cur new tmp)) { mkdir $nd or die "mkdir $nd failed: $!\n"; } -foreach my $n (grep(/\d+\z/, glob("$spool/*"))) { +foreach my $n (grep(/\d+\z/, bsd_glob("$spool/*", GLOB_NOSORT))) { if (open my $fh, '<', $n) { my $f = Email::Filter->new(data => do { local $/; <$fh> }); my $s = $f->simple; |