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