From f5a55f5fa1a9c9ce70847df822ac1b8210174653 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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 = <<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";
 }
 
 
-- 
cgit v1.2.3