Changeset 15446

Show
Ignore:
Timestamp:
14.05.2008 15:22:07 (12 years ago)
Author:
davidb
Message:

Fixed incorrect variable name. ::encoding needed as 's' at the end.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/BasPlug.pm

    r15115 r15446  
    825825    if ($current_locale =~ m/^.*\.(.*?)$/) { 
    826826        my $char_encoding = lc($1); 
     827        if ($char_encoding =~ m/^(iso)(8859)(\d{1,2})$/) { 
     828        $char_encoding = "$1\_$2\_$3"; 
     829        } 
     830 
    827831        $char_encoding =~ s/-/_/g; 
    828832        $char_encoding =~ s/^utf_8$/utf8/; 
     
    838842 
    839843        if (($char_encoding =~ m/(?:ascii|utf8|unicode)/)  
    840         || (defined $encodings::encoding->{$char_encoding})) { 
     844        || (defined $encodings::encodings->{$char_encoding})) { 
    841845        $filesystem_encoding = $char_encoding; 
    842846        }