816eee71e1
OBS-URL: https://build.opensuse.org/package/show/Publishing:TeXLive/texlive?expand=0&rev=192
52 lines
1.9 KiB
Plaintext
52 lines
1.9 KiB
Plaintext
--- lib/Biber/Input/file/bibtex.pm 2013-10-18 22:42:29.000000000 +0200
|
|
+++ lib/Biber/Input/file/bibtex.pm 2015-07-14 13:57:35.656475620 +0200
|
|
@@ -696,7 +696,7 @@
|
|
# Check for malformed names in names which aren't completely escaped
|
|
|
|
# Too many commas
|
|
- unless ($name =~ m/\A{\X+}\z/xms) { # Ignore these tests for escaped names
|
|
+ unless ($name =~ m/\A\{\X+}\z/xms) { # Ignore these tests for escaped names
|
|
my @commas = $name =~ m/,/g;
|
|
if ($#commas > 1) {
|
|
biber_warn("Name \"$name\" has too many commas: skipping name", $bibentry);
|
|
--- lib/Biber/LaTeX/Recode.pm 2013-10-18 22:42:29.000000000 +0200
|
|
+++ lib/Biber/LaTeX/Recode.pm 2015-07-14 14:01:37.700350317 +0200
|
|
@@ -198,13 +198,13 @@
|
|
$text =~ s/\\not\\($re)/$map->{$1}/ge if $re;
|
|
}
|
|
elsif ($type eq 'superscripts') {
|
|
- $text =~ s/\\textsuperscript{($re)}/$map->{$1}/ge if $re;
|
|
+ $text =~ s/\\textsuperscript\{($re)}/$map->{$1}/ge if $re;
|
|
}
|
|
- elsif ($type eq 'cmssuperscripts') {
|
|
- $text =~ s/\\textsuperscript{\\($re)}/$map->{$1}/ge if $re;
|
|
+ elsif ($type eq 'cmdsuperscripts') {
|
|
+ $text =~ s/\\textsuperscript\{\\($re)}/$map->{$1}/ge if $re;
|
|
}
|
|
elsif ($type eq 'dings') {
|
|
- $text =~ s/\\ding{([2-9AF][0-9A-F])}/$map->{$1}/ge;
|
|
+ $text =~ s/\\ding\{([2-9AF][0-9A-F])}/$map->{$1}/ge;
|
|
}
|
|
}
|
|
|
|
@@ -246,7 +246,7 @@
|
|
## remove {} around letter+combining mark(s)
|
|
## by default we skip that, as it would destroy constructions like \foo{\`e}
|
|
if ($strip_outer_braces) {
|
|
- $text =~ s/{(\PM\pM+)}/$1/g;
|
|
+ $text =~ s/\{(\PM\pM+)}/$1/g;
|
|
}
|
|
|
|
$logger->trace("String in latex_decode() now -> '$text'");
|
|
--- lib/Biber/Utils.pm 2013-10-18 22:42:29.000000000 +0200
|
|
+++ lib/Biber/Utils.pm 2015-07-14 13:57:35.657475629 +0200
|
|
@@ -474,7 +474,7 @@
|
|
|
|
sub remove_outer {
|
|
my $str = shift;
|
|
- $str =~ s/^{(\X+)}$/$1/;
|
|
+ $str =~ s/^\{(\X+)}$/$1/;
|
|
return $str;
|
|
}
|
|
|