Changeset 32122

Show
Ignore:
Timestamp:
08.02.2018 14:14:43 (3 months 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 modified

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        }