| # | Line 126 | Line 126 | sub name() | |
|---|---|---|
| 126 | # We want the name of the subsystem: | |
| 127 | ($self->{NAME}) = ($classdir =~ m|^.*/(.*)?$|); | |
| 128 | } | |
| 129 | + | elsif ($self->{CLASS} eq 'DOMAIN') |
| 130 | + | { |
| 131 | + | # We want the name of the domain: |
| 132 | + | ($self->{NAME}) = ($classdir =~ m|^.*/(.*)?$|); |
| 133 | + | } |
| 134 | else | |
| 135 | { | |
| 136 | # Here we have a path that ends in src/bin/test/doc etc. (for real | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |