Changeset 32122 for main


Ignore:
Timestamp:
2018-02-08T14:14:43+13:00 (6 years ago)
Author:
kjdon
Message:

we had [a-z]{2..} which causes an error in later versions of perl. presumably this was meant to be 2 or more occurrences of a-z, so I have changed it to {2,}

Location:
main/trunk/greenstone2/perllib/plugins
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • main/trunk/greenstone2/perllib/plugins/BibTexPlugin.pm

    r31780 r32122  
    313313        } else { # First von Last
    314314            my @words = split(/ /, $a);
    315             while (scalar(@words) > 1 && $words[0] !~ /^[a-z]{2..}/) {
     315            while (scalar(@words) > 1 && $words[0] !~ /^[a-z]{2,}/) {
    316316            $first .= " " . shift (@words);
    317317            }

  • main/trunk/greenstone2/perllib/plugins/LaTeXPlugin.pm

    r31780 r32122  
    218218    } else { # First von Last
    219219        my @words = split(/ /, $author);
    220         while (scalar(@words) > 1 && $words[0] !~ /^[a-z]{2..}/) {
     220        while (scalar(@words) > 1 && $words[0] !~ /^[a-z]{2,}/) {
    221221        $first .= " " . shift (@words);
    222222        }
Note: See TracChangeset for help on using the changeset viewer.