From e70327417f8ce3bd2a03c7da1fd46ea2a8e8e4b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Apr 2003 21:58:04 +0000
Subject: fix typos and cleanup syntax

---
 perl-install/install_steps_interactive.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install')

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;
 }
 
 #------------------------------------------------------------------------------
-- 
cgit v1.2.1