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