From 9fa10e2fcf966bb906e66b5976c0b7ec835577bf Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 8 Mar 2004 14:53:19 +0000 Subject: rename ensure_is_installed_if_availlable( as ensure_is_installed_if_available() --- perl-install/do_pkgs.pm | 2 +- perl-install/network/netconnect.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm index f49f6dcb4..9ab4a8982 100644 --- a/perl-install/do_pkgs.pm +++ b/perl-install/do_pkgs.pm @@ -29,7 +29,7 @@ sub ensure_is_installed { 1; } -sub ensure_is_installed_if_availlable { +sub ensure_is_installed_if_available { my ($do, $pkg, $file) = @_; if (! -e "$::prefix$file" && !$::testing) { $do->{in}->do_pkgs->what_provides($pkg) and $do->{in}->do_pkgs->install($pkg); diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index b680df1fb..e5ffcfbb7 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -619,11 +619,11 @@ killall pppd $need_restart_network = member($ntf_name, qw(speedtouch eci)); $in->do_pkgs->install($packages{$ntf_name}->[0]) if $packages{$ntf_name} && !-e $packages{$ntf_name}->[1]; if ($ntf_name eq 'speedtouch') { - $in->do_pkgs->ensure_is_installed_if_availlable('speedtouch_mgmt', "$::prefix/usr/share/speedtouch/mgmt.o"); + $in->do_pkgs->ensure_is_installed_if_available('speedtouch_mgmt', "$::prefix/usr/share/speedtouch/mgmt.o"); return 'adsl_speedtouch_firmware' if ! -e "$::prefix/usr/share/speedtouch/mgmt.o"; } if ($ntf_name eq 'bewan' && !$::testing) { - $in->do_pkgs->ensure_is_installed_if_availlable('unicorn', "$::prefix/usr/bin/bewan_adsl_status"); + $in->do_pkgs->ensure_is_installed_if_available('unicorn', "$::prefix/usr/bin/bewan_adsl_status"); } return 'adsl_provider' if $adsl_devices{$ntf_name}; return 'adsl_protocol'; -- cgit v1.2.1