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 /lib/PublicInbox/V2Writable.pm | |
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 'lib/PublicInbox/V2Writable.pm')
-rw-r--r-- | lib/PublicInbox/V2Writable.pm | 4 |
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"; |