about summary refs log tree commit homepage
path: root/lib/PublicInbox/Import.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-06-05 01:26:55 +0000
committerEric Wong <e@80x24.org>2019-06-05 01:26:55 +0000
commit2984ff86d913c3a9a9f53e67e141f7a39bf77160 (patch)
treea4d3263b0a3e33122e1e1e1317a6c010b022d7f8 /lib/PublicInbox/Import.pm
parentf90225afaef139a5e82b3083b7bdcb6abf0e7c1e (diff)
downloadpublic-inbox-2984ff86d913c3a9a9f53e67e141f7a39bf77160.tar.gz
While I don't expect git to suddenly start spewing non-ASCII
digits in places I'd expect ASCII, this would make things easier
for future hackers and reviewers.
Diffstat (limited to 'lib/PublicInbox/Import.pm')
-rw-r--r--lib/PublicInbox/Import.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/PublicInbox/Import.pm b/lib/PublicInbox/Import.pm
index 81a38fb6..2c4bad92 100644
--- a/lib/PublicInbox/Import.pm
+++ b/lib/PublicInbox/Import.pm
@@ -106,7 +106,7 @@ sub _cat_blob ($$$) {
         local $/ = "\n";
         my $info = <$r>;
         defined $info or die "EOF from fast-import / cat-blob: $!";
-        $info =~ /\A[a-f0-9]{40} blob (\d+)\n\z/ or return;
+        $info =~ /\A[a-f0-9]{40} blob ([0-9]+)\n\z/ or return;
         my $left = $1;
         my $offset = 0;
         my $buf = '';
@@ -493,9 +493,9 @@ sub clean_purge_buffer {
 
         foreach my $i (0..$#$buf) {
                 my $l = $buf->[$i];
-                if ($l =~ /^author .* (\d+ [\+-]?\d+)$/) {
+                if ($l =~ /^author .* ([0-9]+ [\+-]?[0-9]+)$/) {
                         $buf->[$i] = "author <> $1\n";
-                } elsif ($l =~ /^data (\d+)/) {
+                } elsif ($l =~ /^data ([0-9]+)/) {
                         $buf->[$i++] = "data " . length($cmt_msg) . "\n";
                         $buf->[$i] = $cmt_msg;
                         last;
@@ -525,7 +525,7 @@ sub purge_oids {
                                 @buf = ();
                         }
                         push @buf, "commit $tmp\n";
-                } elsif (/^data (\d+)/) {
+                } elsif (/^data ([0-9]+)/) {
                         # only commit message, so $len is small:
                         my $len = $1; # + 1 for trailing "\n"
                         push @buf, $_;
@@ -557,7 +557,7 @@ sub purge_oids {
                         @buf = ();
                 } elsif ($_ eq "done\n") {
                         $done = 1;
-                } elsif (/^mark :(\d+)$/) {
+                } elsif (/^mark :([0-9]+)$/) {
                         push @buf, $_;
                         $mark = $1;
                 } else {