#44 fixed

yegor256 · Aug 19, 2023 · adeb46e · adeb46e
1 parent 35279e2
commit adeb46e
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 1 deletion.
diff --git a/bibcop.pl b/bibcop.pl
@@ -554,9 +554,23 @@ 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;
+  if ($left eq '') {
+    $left = $right;
+  }
+  if ($right eq '') {
+    $right = $left;
+  }
+  if ($left + 0 gt $right + 0) {
+    my $tmp = $left;
+    $left = $right;
+    $right = $tmp;
+  }
+  if ($left eq $right) {
+    return $left;
+  }
   return $left . '--' . $right;
 }
 

diff --git a/perl-tests/fixing.pl b/perl-tests/fixing.pl
@@ -41,11 +41,14 @@ package bibcop;
 fixes('booktitle', 'Symposium on Computers', 'Proceedings of the Symposium on Computers');
 
 fixes('pages', '13', '13');
+fixes('pages', '13-', '13');
 fixes('pages', '196--230', '196--230');
 fixes('pages', '100-110', '100--110');
+fixes('pages', '117–128', '117--128');
 fixes('pages', '2---33', '2--33');
 fixes('pages', '22—23', '22--23');
 fixes('pages', '05---07', '5--7');
+fixes('pages', '42---13', '13--42');
 
 fixes('number', '02', '2');
 fixes('number', '007', '7');