#28 typo

yegor256 · May 16, 2023 · 9fd5e63 · 9fd5e63
1 parent cb0cf1f
commit 9fd5e63
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/bibcop.pl b/bibcop.pl
@@ -489,7 +489,7 @@ sub fix_pages {
   if ($value =~ /^[1-9][0-9]*$/) {
     return $value;
   }
-  my ($left, $right) = split(/---|-|—|\s/, $value);
+  my ($left, $right) = split(/---|--|-|—|\s/, $value);
   $left =~ s/^0+//g;
   $right =~ s/^0+//g;
   return $left . '--' . $right;

diff --git a/perl-tests/fixing.pl b/perl-tests/fixing.pl
@@ -39,6 +39,7 @@ package bibcop;
 fixes('booktitle', 'Symposium on Computers', 'Proceedings of the Symposium on Computers');
 
 fixes('pages', '13', '13');
+fixes('pages', '196--230', '196--230');
 fixes('pages', '100-110', '100--110');
 fixes('pages', '2---33', '2--33');
 fixes('pages', '22—23', '22--23');