File tree Expand file tree Collapse file tree
texk/texlive/linked_scripts/crossrefware Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -86,7 +86,7 @@ =head1 AUTHOR
8686
8787=head1 COPYRIGHT AND LICENSE
8888
89- Copyright (C) 2014-2021 Boris Veytsman
89+ Copyright (C) 2014-2026 Boris Veytsman
9090
9191This is free software. You may redistribute copies of it under the
9292terms of the GNU General Public License
Original file line number Diff line number Diff line change @@ -98,7 +98,7 @@ =head1 AUTHOR
9898
9999=head1 COPYRIGHT AND LICENSE
100100
101- Copyright (C) 2014-2025 Boris Veytsman
101+ Copyright (C) 2014-2026 Boris Veytsman
102102
103103This is free software. You may redistribute copies of it under the
104104terms of the GNU General Public License
Original file line number Diff line number Diff line change @@ -258,21 +258,22 @@ sub GetMr {
258258 print " DEBUG: response $response \n " ;
259259 }
260260
261- $response =~ s /\| .*// ;
262- if (length ($response == 0)) {
261+ my @vals = split /\|/ , $response ;
262+ my $mr = $vals [9];
263+ if (length($mr ) == 0) {
263264 if ($debug ) {
264265 print STDERR "Did not get MR\n ";
265266 }
266267 return("");
267268 }
268269
269270 # Somehow mref deletes leading zeros. They are needed!
270- while (length ($response )<7) {
271- $response = " 0$response " ;
271+ while (length($mr )<7) {
272+ $mr = "0$mr ";
272273 }
273274 if ($debug ) {
274- print STDERR " DEBUG: got MR: $response \n " ,
275+ print STDERR "DEBUG: got MR: $mr \n ",
275276 }
276- return $response ;
277+ return $mr ;
277278
278279}
Original file line number Diff line number Diff line change @@ -39,7 +39,7 @@ =head1 AUTHOR
3939
4040=head1 COPYRIGHT AND LICENSE
4141
42- Copyright (C) 2021 Boris Veytsman
42+ Copyright (C) 2021-2026 Boris Veytsman
4343
4444This is free software. You may redistribute copies of it under the
4545terms of the GNU General Public License
Original file line number Diff line number Diff line change @@ -310,7 +310,7 @@ =head1 AUTHOR
310310
311311=head1 COPYRIGHT AND LICENSE
312312
313- Copyright (C) 2012-2025 Boris Veytsman
313+ Copyright (C) 2012-2026 Boris Veytsman
314314
315315This is free software. You may redistribute copies of it under the
316316terms of the GNU General Public License (any version)
You can’t perform that action at this time.
0 commit comments