| … | … | ||
|---|---|---|---|
| 56 | link $CONFIG_FILE, "$CONFIG_FILE~"; | 56 | link $CONFIG_FILE, "$CONFIG_FILE~"; |
| 57 | rename "$CONFIG_FILE~new~", $CONFIG_FILE | 57 | rename "$CONFIG_FILE~new~", $CONFIG_FILE |
| 58 | or Carp::croak "$CONFIG_FILE: $!"; | 58 | or Carp::croak "$CONFIG_FILE: $!"; |
| 59 | } | 59 | } |
| 60 | 60 | ||
| 61 | sub node_config { | 61 | sub config { |
| 62 | \%CFG | 62 | \%CFG |
| 63 | } | ||
| 64 | |||
| 65 | sub find_profile($) { | ||
| 66 | +{ | ||
| 67 | %CFG, | ||
| 68 | %{ $CFG{profile}{$_[0]} }, | ||
| 69 | } | ||
| 63 | } | 70 | } |
| 64 | 71 | ||
| 65 | load; | 72 | load; |
| 66 | END { save } | 73 | END { save } |
| 67 | 74 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |