From 4fcf385fb0fbafe600047720d897264ca3c1be93 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 8 Mar 2004 08:57:06 +0000 Subject: (read_providers_backend) move it from network::tools to network::isdn --- perl-install/network/isdn.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/network/isdn.pm') diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 037968629..87480d74a 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -14,8 +14,9 @@ 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); +@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) = @_; -- cgit v1.2.1