| … | … | ||
|---|---|---|---|
| 60 | 60 | ||
| 61 | sub config { | 61 | sub config { |
| 62 | \%CFG | 62 | \%CFG |
| 63 | } | 63 | } |
| 64 | 64 | ||
| 65 | sub _find_profile($); | ||
| 65 | sub _find_profile($) { | 66 | sub _find_profile($) { |
| 66 | my ($name) = @_; | 67 | my ($name) = @_; |
| 67 | 68 | ||
| 68 | if (defined $name) { | 69 | if (defined $name) { |
| 69 | my $profile = $CFG{profile}{$name}; | 70 | my $profile = $CFG{profile}{$name}; |
| 70 | return _find_profile ($profile->{parent}), %$profile; | 71 | return _find_profile $profile->{parent}, %$profile; |
| 71 | } else { | 72 | } else { |
| 72 | return %CFG; | 73 | return %CFG; |
| 73 | } | 74 | } |
| 74 | } | 75 | } |
| 75 | 76 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |