From f5a55f5fa1a9c9ce70847df822ac1b8210174653 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 23 Apr 2017 22:08:21 +0000 Subject: crossrefware (23apr17) git-svn-id: svn://tug.org/texlive/trunk@43993 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Build') 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 = <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"; } -- cgit v1.2.3