… | … | ||
---|---|---|---|
1035 | open my $fh, "<:utf8", cf::confdir . "/config" | 1035 | open my $fh, "<:utf8", cf::confdir . "/config" |
1036 | or return; | 1036 | or return; |
1037 | 1037 | ||
1038 | local $/; | 1038 | local $/; |
1039 | *CFG = YAML::Syck::Load <$fh>; | 1039 | *CFG = YAML::Syck::Load <$fh>; |
1040 | |||
1041 | use Data::Dumper; warn Dumper \%CFG; | ||
1042 | } | 1040 | } |
1043 | 1041 | ||
1044 | sub main { | 1042 | sub main { |
1045 | cfg_load; | 1043 | cfg_load; |
1046 | db_load; | 1044 | db_load; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |