about summary refs log tree commit homepage
path: root/script
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-06-04 08:40:34 +0000
committerEric Wong <e@80x24.org>2019-06-04 10:06:18 +0000
commitd3906fed88f403552d1629e9ecc9974ab85abaae (patch)
tree44eece4dff4ac1e7e91566400c32ddb024682ca8 /script
parentb04bdc8cd749dd3dfcc9351b2b47bfdf190b4a3a (diff)
downloadpublic-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-xscript/public-inbox-purge2
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;