| … | … | ||
|---|---|---|---|
| 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 |