diff options
| author | Karl Berry <karl@freefriends.org> | 2017-04-23 22:08:21 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2017-04-23 22:08:21 +0000 |
| commit | f5a55f5fa1a9c9ce70847df822ac1b8210174653 (patch) | |
| tree | e7771b70b8ea29a0f030c48d0629b3b3a1739893 /Build/source | |
| parent | 9c26675db784ea54c81586577e5edce9e945c880 (diff) | |
crossrefware (23apr17)
git-svn-id: svn://tug.org/texlive/trunk@43993 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
| -rwxr-xr-x | Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl b/Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl index 7a05297a0fd..a2df920382d 100755 --- a/Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl +++ b/Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl @@ -101,7 +101,7 @@ use LWP::Simple; my $USAGE="USAGE: $0 [-o output] file\n"; my $VERSION = <<END; -bbl2bib v2.1 +bbl2bib v2.1a This is free software. You may redistribute copies of it under the terms of the GNU General Public License http://www.gnu.org/licenses/gpl.html. There is NO WARRANTY, to the @@ -216,7 +216,7 @@ sub SearchMref { open $fh, "<", \$bib; my $parser = new BibTeX::Parser($fh); my $entry = $parser->next; - if ($entry->parse_ok()) { + if (ref($entry) && $entry->parse_ok()) { $entry->key($bibitem->{key}); return ($entry); } @@ -227,7 +227,7 @@ sub SearchMref { sub PrintBibitem { - print "\n"; + print $output "\n"; my $bibitem = shift; if (!ref($bibitem->{bib})) { return; @@ -253,7 +253,7 @@ sub PrintBibitem { $entry->field('arxiv', $bibitem->{arxiv}); } - print $entry->to_string(), "\n\n"; + print $output $entry->to_string(), "\n\n"; } |