diff options
-rwxr-xr-x | rf | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -12,7 +12,6 @@ $fmt{d} = '%a (%y). {\fI%t\fR}. {\*Q%q\*U}. %n, %d. %c: %p. {Available: %w.}'; # Internal variables -my $author_last = 1; # whether the previous reference field was Ra my @lines; my @refs; @@ -119,7 +118,6 @@ for (my $i = $#lines; $i >= 0; $i--) { } # print formatted reference - push @r, "\n" if $fmt =~ s/^\n//; my $n = index($fmt, "\n"); $prefix = '' if not $prefix; $suffix = '' if not $suffix; @@ -133,9 +131,13 @@ for (my $i = $#lines; $i >= 0; $i--) { } # non-rf line + + # whether or not to include a final newline depends on the + # format of the inline reference on the line below if (!$inlref) { push @r, "\n"; } + push @r, $_; $refblock = 0; |