summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/crossrefware
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-04-23 22:08:21 +0000
committerKarl Berry <karl@freefriends.org>2017-04-23 22:08:21 +0000
commitf5a55f5fa1a9c9ce70847df822ac1b8210174653 (patch)
treee7771b70b8ea29a0f030c48d0629b3b3a1739893 /Master/texmf-dist/scripts/crossrefware
parent9c26675db784ea54c81586577e5edce9e945c880 (diff)
crossrefware (23apr17)
git-svn-id: svn://tug.org/texlive/trunk@43993 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/crossrefware')
-rwxr-xr-xMaster/texmf-dist/scripts/crossrefware/bbl2bib.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/texmf-dist/scripts/crossrefware/bbl2bib.pl b/Master/texmf-dist/scripts/crossrefware/bbl2bib.pl
index 7a05297a0fd..a2df920382d 100755
--- a/Master/texmf-dist/scripts/crossrefware/bbl2bib.pl
+++ b/Master/texmf-dist/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";
}