summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-04-30 22:44:49 +0000
committerKarl Berry <karl@freefriends.org>2018-04-30 22:44:49 +0000
commit3769a3e704759d87832efcd18bb9d1cfc8067f5f (patch)
tree444e905c29f8d64d452e2f230226eb8901f79a75 /Master/texmf-dist/scripts
parent154decbde20261c8e3c8bf4cc885d45dc19be63b (diff)
bibtexperllibs (30apr18)
git-svn-id: svn://tug.org/texlive/trunk@47520 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rw-r--r--Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser.pm4
-rw-r--r--Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Author.pm6
-rw-r--r--Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Entry.pm4
3 files changed, 7 insertions, 7 deletions
diff --git a/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser.pm b/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser.pm
index 27cb9145829..2eac696a049 100644
--- a/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser.pm
+++ b/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser.pm
@@ -1,6 +1,6 @@
package BibTeX::Parser;
{
- $BibTeX::Parser::VERSION = '1.01';
+ $BibTeX::Parser::VERSION = '1.02';
}
# ABSTRACT: A pure perl BibTeX parser
use warnings;
@@ -345,7 +345,7 @@ L<BibTeX::Parser::Author>
=head1 VERSION
-version 1.01
+version 1.02
=head1 AUTHOR
diff --git a/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Author.pm b/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Author.pm
index a0ffb455be4..7d5274d1d70 100644
--- a/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Author.pm
+++ b/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Author.pm
@@ -1,6 +1,6 @@
package BibTeX::Parser::Author;
{
- $BibTeX::Parser::Author::VERSION = '1.01';
+ $BibTeX::Parser::Author::VERSION = '1.02';
}
use warnings;
@@ -263,7 +263,7 @@ sub to_string {
my $self = shift;
if ($self->jr) {
- return $self->von . " " . $self->last . ", " . $self->jr . ", " . $self->first;
+ return ($self->von ? $self->von . " " : '') . " " . $self->last . ", " . $self->jr . ", " . $self->first;
} else {
return ($self->von ? $self->von . " " : '') . $self->last . ($self->first ? ", " . $self->first : '');
}
@@ -393,7 +393,7 @@ the following token is not: C<{von}>
=head1 VERSION
-version 1.01
+version 1.02
=head1 AUTHOR
diff --git a/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Entry.pm b/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Entry.pm
index 6d3b0ec81a8..2b8fe76220a 100644
--- a/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Entry.pm
+++ b/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Entry.pm
@@ -1,6 +1,6 @@
package BibTeX::Parser::Entry;
{
- $BibTeX::Parser::Entry::VERSION = '1.01';
+ $BibTeX::Parser::Entry::VERSION = '1.02';
}
use warnings;
@@ -415,7 +415,7 @@ Can take values 'Uppercase' (the default), 'Lowercase' or 'Titlecase'
=head1 VERSION
-version 1.01
+version 1.02
=head1 AUTHOR