View | Details | Raw Unified | Return to bug 227332
Collapse All | Expand All

(-)lib/Biber/Input/file/bibtex.pm (-1 / +1 lines)
Lines 759-765 sub _name { Link Here
759
    # Check for malformed names in names which aren't completely escaped
759
    # Check for malformed names in names which aren't completely escaped
760
760
761
    # Too many commas
761
    # Too many commas
762
    unless ($name =~ m/\A{\X+}\z/xms) { # Ignore these tests for escaped names
762
    unless ($name =~ m/\A\{\X+\}\z/xms) { # Ignore these tests for escaped names
763
      my @commas = $name =~ m/,/g;
763
      my @commas = $name =~ m/,/g;
764
      if ($#commas > 1) {
764
      if ($#commas > 1) {
765
        biber_warn("Name \"$name\" has too many commas: skipping name", $bibentry);
765
        biber_warn("Name \"$name\" has too many commas: skipping name", $bibentry);
(-)lib/Biber/LaTeX/Recode.pm (-2 / +2 lines)
Lines 236-242 sub latex_decode { Link Here
236
        $text =~ s/\\textsuperscript{\\($re)}/$map->{$1}/ge;
236
        $text =~ s/\\textsuperscript{\\($re)}/$map->{$1}/ge;
237
      }
237
      }
238
      elsif ($type eq 'dings') {
238
      elsif ($type eq 'dings') {
239
        $text =~ s/\\ding{([2-9AF][0-9A-F])}/$map->{$1}/ge;
239
        $text =~ s/\\ding\{([2-9AF][0-9A-F])\}/$map->{$1}/ge;
240
      }
240
      }
241
      elsif ($type eq 'letters') {
241
      elsif ($type eq 'letters') {
242
        $text =~ s/\\($re)(?:\{\}|\s+|\b)/$map->{$1}/ge;
242
        $text =~ s/\\($re)(?:\{\}|\s+|\b)/$map->{$1}/ge;
Lines 293-299 sub latex_decode { Link Here
293
    # Workaround perl's lack of variable-width negative look-behind -
293
    # Workaround perl's lack of variable-width negative look-behind -
294
    # Reverse string (and therefore some of the Re) and use variable width negative look-ahead
294
    # Reverse string (and therefore some of the Re) and use variable width negative look-ahead
295
    $text = reverse $text;
295
    $text = reverse $text;
296
    $text =~ s/}(\pM+\pL){(?!\pL+\\)/$1/g;
296
    $text =~ s/\}(\pM+\pL)\{(?!\pL+\\)/$1/g;
297
    $text = reverse $text;
297
    $text = reverse $text;
298
    $logger->trace("String in latex_decode() now -> '$text'");
298
    $logger->trace("String in latex_decode() now -> '$text'");
299
299

Return to bug 227332