about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-06-04 02:04:25 +0000
committerEric Wong <e@80x24.org>2019-06-04 10:06:18 +0000
commit02598bd82780d9b16fd091268f2dccf989489b0e (patch)
treef721ebabef7180a14cb96bdc20634e0f60fcd60a
parent1735e5c2cf87b28b096ad91008bdb764d853b26d (diff)
downloadpublic-inbox-02598bd82780d9b16fd091268f2dccf989489b0e.tar.gz
We aren't able to make sense of non-ASCII digits

cf. perlrecharclass(1) / "Digits" section
-rw-r--r--lib/PublicInbox/NNTP.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm
index 8cb6c56d..57300e89 100644
--- a/lib/PublicInbox/NNTP.pm
+++ b/lib/PublicInbox/NNTP.pm
@@ -437,7 +437,7 @@ sub set_nntp_headers ($$$$$) {
         # clobber some
         my $xref = xref($self, $ng, $n, $mid);
         $hdr->header_set('Xref', $xref);
-        $xref =~ s/:\d+//g;
+        $xref =~ s/:[0-9]+//g;
         $hdr->header_set('Newsgroups', (split(/ /, $xref, 2))[1]);
         header_append($hdr, 'List-Post', "<mailto:$ng->{-primary_address}>");
         if (my $url = $ng->base_url) {
@@ -453,7 +453,7 @@ sub art_lookup ($$$) {
         my ($n, $mid);
         my $err;
         if (defined $art) {
-                if ($art =~ /\A\d+\z/o) {
+                if ($art =~ /\A[0-9]+\z/) {
                         $err = '423 no such article number in this group';
                         $n = int($art);
                         goto find_mid;
@@ -508,7 +508,7 @@ sub simple_body_write ($$) {
 
 sub set_art {
         my ($self, $art) = @_;
-        $self->{article} = $art if defined $art && $art =~ /\A\d+\z/;
+        $self->{article} = $art if defined $art && $art =~ /\A[0-9]+\z/;
 }
 
 sub _header ($) {
@@ -576,11 +576,11 @@ sub get_range ($$) {
         defined $range or return '420 No article(s) selected';
         my ($beg, $end);
         my ($min, $max) = $ng->mm->minmax;
-        if ($range =~ /\A(\d+)\z/) {
+        if ($range =~ /\A([0-9]+)\z/) {
                 $beg = $end = $1;
-        } elsif ($range =~ /\A(\d+)-\z/) {
+        } elsif ($range =~ /\A([0-9]+)-\z/) {
                 ($beg, $end) = ($1, $max);
-        } elsif ($range =~ /\A(\d+)-(\d+)\z/) {
+        } elsif ($range =~ /\A([0-9]+)-([0-9]+)\z/) {
                 ($beg, $end) = ($1, $2);
         } else {
                 return r501;