From 3a5649ffced3f29e3bbc3ea4b539a28972eb36a9 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sat, 2 May 2020 21:22:10 +0000 Subject: scripts/slrnspool2maildir: don't sort glob() glob() sorts alphabetically by default, which doesn't have a useful meaning with many articles. Stop wasting CPU cycles and memory. --- scripts/slrnspool2maildir | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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; -- cgit v1.2.3-24-ge0c7