diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/do_pkgs.pm | 2 | ||||
| -rw-r--r-- | 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'; |