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