(get_info_providers_backend) drop file argument and do ISDN db lookup in place

1 files changed, 6 insertions, 2 deletions

diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 87480d74a..19fc9f2e1 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -16,7 +16,6 @@ use MDK::Common::File;
 @ISA = qw(Exporter);
 @EXPORT = qw(isdn_write_config isdn_write_config_backend get_info_providers_backend isdn_ask_info isdn_ask_protocol isdn_ask isdn_detect_backend isdn_get_list isdn_get_info read_providers_backend);
 
-sub read_providers_backend { my ($file) = @_; map { /(.*?)=>/ } catMaybeCompressed($file) }
 
 sub isdn_write_config {
     my ($isdn, $netc) = @_;
@@ -107,8 +106,11 @@ sub isdn_read_config {
     $isdn;
 }
 
+my $file = "$ENV{SHARE_PATH}/ldetect-lst/isdn.db";
+$file = "$::prefix$file" if !-e $file;
+
 sub get_info_providers_backend {
-    my ($isdn, $_netc, $name, $file) = @_;
+    my ($isdn, $_netc, $name) = @_;
     $name eq 'Unlisted - edit manually' and return;
     foreach (catMaybeCompressed($file)) {
 	chop;
@@ -120,6 +122,8 @@ sub get_info_providers_backend {
     }
 }
 
+sub read_providers_backend { map { /(.*?)=>/ } catMaybeCompressed($file) }
+
 sub isdn_ask_info {
     my ($isdn, $netc) = @_;
     my $f = "$ENV{SHARE_PATH}/ldetect-lst/isdn.db";