require ASCII digits for local FS items

[public-inbox.git] / script / public-inbox-purge

diff --git a/script/public-inbox-purge b/script/public-inbox-purge
index 381826dc440c8ca43546aa823dd0b4aab93e39c2..25e6cc9b782451a5774acde97d7454d70f8d5a3e 100755 (executable)
--- 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;