lilalo

diff l3config.pm @ 92:db51b62442ac

Написан прототип lm get
author devi
date Sat Apr 22 17:08:05 2006 +0300 (2006-04-22)
parents 3f92cd706473
children 93281d002ee4
line diff
     1.1 --- a/l3config.pm	Sat Feb 25 08:22:20 2006 +0200
     1.2 +++ b/l3config.pm	Sat Apr 22 17:08:05 2006 +0300
     1.3 @@ -1,6 +1,6 @@
     1.4 -
     1.5  package l3config;
     1.6  
     1.7 +use utf8;
     1.8  use Exporter;
     1.9  use vars qw(@ISA @EXPORT $VERSION);
    1.10  use Getopt::Long;
    1.11 @@ -163,5 +163,8 @@
    1.12  	read_config_file(\%file_config, $User_Config_File);
    1.13  	GetOptions(\%argv_config, map "$_=s", keys %Config);
    1.14  	%Config = (%Config, %file_config, %argv_config);
    1.15 +    for my $key (keys %Config) {
    1.16 +        utf8::decode($Config{$key});
    1.17 +    }
    1.18  }
    1.19