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