SHOW:
|
|
- or go back to the newest paste.
| 1 | - | my $key = $Registry->{"Classes"};
|
| 1 | + | |
| 2 | ||
| 3 | ||
| 4 | sub recurseRegistry($){
| |
| 5 | $start = shift; | |
| 6 | my $key = $Registry->{$start};
| |
| 7 | for (keys %$key) {
| |
| 8 | if (#We've reached a leaf) {
| |
| 9 | #Check if value matches what we're searching for, return path | |
| 10 | } | |
| 11 | elsif (#We are not at a leaf) {
| |
| 12 | recurseRegistry("$start/$_");
| |
| 13 | } | |
| 14 | } | |
| 15 | } |
