summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 68e4329b4..8158c23e0 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -719,19 +719,19 @@ N("There was an error installing packages:"), $1, N("Go on anyway?") ], 1) and r
sub afterInstallPackages($) {
my ($o) = @_;
my $_w = $o->wait_message('', N("Post-install configuration"));
- $o->SUPER::afterInstallPackages($o);
+ $o->SUPER::afterInstallPackages;
}
sub copyKernelFromFloppy {
my ($o) = @_;
$o->ask_okcancel('', N("Please insert the Boot floppy used in drive %s", $o->{blank}), 1) or return;
- $o->SUPER::copyKernelFromFloppy();
+ $o->SUPER::copyKernelFromFloppy;
}
sub updateModulesFromFloppy {
my ($o) = @_;
$o->ask_okcancel('', N("Please insert the Update Modules floppy in drive %s", $o->{updatemodules}), 1) or return;
- $o->SUPER::updateModulesFromFloppy();
+ $o->SUPER::updateModulesFromFloppy;
}
#------------------------------------------------------------------------------
@@ -1201,7 +1201,7 @@ sub addUser {
sub setupBootloaderBefore {
my ($o) = @_;
my $_w = $o->wait_message('', N("Preparing bootloader..."));
- $o->SUPER::setupBootloaderBefore($o);
+ $o->SUPER::setupBootloaderBefore;
}
#------------------------------------------------------------------------------