about summary refs log tree commit homepage
path: root/lib/PublicInbox/V2Writable.pm
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 /lib/PublicInbox/V2Writable.pm
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 'lib/PublicInbox/V2Writable.pm')
-rw-r--r--lib/PublicInbox/V2Writable.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PublicInbox/V2Writable.pm b/lib/PublicInbox/V2Writable.pm
index 76844cd4..a8c33ef4 100644
--- a/lib/PublicInbox/V2Writable.pm
+++ b/lib/PublicInbox/V2Writable.pm
@@ -48,7 +48,7 @@ sub count_partitions ($) {
         # due to -compact
         if (-d $xpfx) {
                 foreach my $part (<$xpfx/*>) {
-                        -d $part && $part =~ m!/\d+\z! or next;
+                        -d $part && $part =~ m!/[0-9]+\z! or next;
                         eval {
                                 Search::Xapian::Database->new($part)->close;
                                 $nparts++;
@@ -574,7 +574,7 @@ sub git_dir_latest {
         my $latest;
         opendir my $dh, $pfx or die "opendir $pfx: $!\n";
         while (defined(my $git_dir = readdir($dh))) {
-                $git_dir =~ m!\A(\d+)\.git\z! or next;
+                $git_dir =~ m!\A([0-9]+)\.git\z! or next;
                 if ($1 > $$max) {
                         $$max = $1;
                         $latest = "$pfx/$git_dir";