|
Lines 144-157
sub available_backends {
Link Here
|
| 144 |
|
144 |
|
| 145 |
# Old way of loading backends: Through backend_dir config |
145 |
# Old way of loading backends: Through backend_dir config |
| 146 |
my $backend_dir = $self->backend_dir; |
146 |
my $backend_dir = $self->backend_dir; |
| 147 |
my @backends = (); |
147 |
my @backends = (); |
| 148 |
@backends = glob "$backend_dir/*" if ( $backend_dir ); |
148 |
@backends = glob "$backend_dir/*" if ($backend_dir); |
| 149 |
@backends = map { basename($_) } @backends; |
149 |
@backends = map { basename($_) } @backends; |
| 150 |
@backends = grep { $_ =~ /$reduce/ } @backends if $reduce; |
150 |
@backends = grep { $_ =~ /$reduce/ } @backends if $reduce; |
| 151 |
|
151 |
|
| 152 |
# Return unique list of backend names in the event that the same backend is |
152 |
# Return unique list of backend names in the event that the same backend is |
| 153 |
# installed as a plugin AND as the old way through backend_dir |
153 |
# installed as a plugin AND as the old way through backend_dir |
| 154 |
my @all_backends = ( @backends, @backend_plugins_names ); |
154 |
my @all_backends = ( @backends, @backend_plugins_names ); |
| 155 |
my @all_uniq_backends = uniq(@all_backends); |
155 |
my @all_uniq_backends = uniq(@all_backends); |
| 156 |
|
156 |
|
| 157 |
return \@all_uniq_backends; |
157 |
return \@all_uniq_backends; |
| 158 |
- |
|
|