summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/isdn.pm8
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";