summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Author.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Author.pm')
-rw-r--r--Master/texmf-dist/scripts/bibtexperllibs/BibTeX/Parser/Author.pm6
1 files changed, 3 insertions, 3 deletions
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