diff options
author | Eric Wong <e@80x24.org> | 2019-06-04 08:40:34 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-06-04 10:06:18 +0000 |
commit | d3906fed88f403552d1629e9ecc9974ab85abaae (patch) | |
tree | 44eece4dff4ac1e7e91566400c32ddb024682ca8 /script | |
parent | b04bdc8cd749dd3dfcc9351b2b47bfdf190b4a3a (diff) | |
download | public-inbox-d3906fed88f403552d1629e9ecc9974ab85abaae.tar.gz |
In case some BOFH decides to randomly create directories using non-ASCII digits all over the place.
Diffstat (limited to 'script')
-rwxr-xr-x | script/public-inbox-purge | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/script/public-inbox-purge b/script/public-inbox-purge index 381826dc..25e6cc9b 100755 --- a/script/public-inbox-purge +++ b/script/public-inbox-purge @@ -91,7 +91,7 @@ foreach my $ibx (@inboxes) { my $xdir_ro = $ibx->{search}->xdir(1); my $npart = 0; foreach my $part (<$xdir_ro/*>) { - if (-d $part && $part =~ m!/\d+\z!) { + if (-d $part && $part =~ m!/[0-9]+\z!) { my $bytes = 0; $bytes += -s $_ foreach glob("$part/*"); $npart++ if $bytes; |