Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 6c45a4db

Von Moritz Bunkus vor mehr als 12 Jahren hinzugefügt

LANGUAGE-Dateien als UTF-8 einlesen

Fix für Bug 1720.

Unterschiede anzeigen:

SL/User.pm
77 77 
  my @dir = grep(!/(^\.\.?$|\..*)/, readdir(DIR));
78 78 

  		




  79
  79
  
    
  foreach my $dir (@dir) {


  		




  80
  
  
    
    next unless open(FH, "locale/$dir/LANGUAGE");


  		




  81
  
  
    
    @language = <FH>;


  		




  82
  
  
    
    close FH;


  		




  
  80
  
    
    next unless open(my $fh, '<:encoding(UTF-8)', "locale/$dir/LANGUAGE");


  		




  
  81
  
    
    @language = <$fh>;


  		




  
  82
  
    
    close $fh;


  		




  83
  83
  
    

  		




  84
  84
  
    
    $cc{$dir} = "@language";


  		




  85
  85
  
    
  }


  		












Auch abrufbar als:  Unified diff