#28 auto-fix numbers

yegor256 · May 16, 2023 · e8e0985 · e8e0985
1 parent 85be2eb
commit e8e0985
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/bibcop.pl b/bibcop.pl
@@ -445,6 +445,12 @@ sub fix_author {
   return join(' and ', @authors);
 }
 
+sub fix_number {
+  my ($value) = @_;
+  $value =~ s/^0+//g;
+  return $value;
+}
+
 # Parse the incoming .bib file and return an array
 # of hash-maps, where each one is a bibentry.
 sub entries {

diff --git a/perl-tests/fixing.pl b/perl-tests/fixing.pl
@@ -31,6 +31,10 @@ package bibcop;
 fixes('author', 'Knuth, Donald E.', 'Knuth, Donald E.');
 fixes('author', 'Jerome, K Jerome', 'Jerome, K. Jerome');
 
+fixes('number', '02', '2');
+fixes('number', '007', '7');
+fixes('number', '16', '16');
+
 sub fixes {
   my ($tag, $before, $expected) = @_;
   my $fixer = "fix_$tag";