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