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