From 68b151a5194f36584d0c27d8e95fb1f84eedcd1f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 23 Oct 2002 11:22:41 +0000
Subject: make perl_checker happy: replace PKG::f with PKG::f()

---
 perl-install/harddrake/sound.pm    | 2 +-
 perl-install/install_steps_newt.pm | 4 ++--
 perl-install/network/netconnect.pm | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 269581488..232b2b086 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -141,7 +141,7 @@ sub do_switch {
     unload($old_driver); #    run_program("/sbin/modprobe -r $driver"); # just in case ...
     modules::remove_module($old_driver); # completed by the next add_alias()
     modules::add_alias("sound-slot-$::i", $new_driver);
-    modules::write_conf;
+    modules::write_conf();
     if ($new_driver =~ /^snd-/) {
         rooted("service alsa start") unless $blacklisted;
         rooted("/sbin/chkconfig --add alsa");
diff --git a/perl-install/install_steps_newt.pm b/perl-install/install_steps_newt.pm
index 2e62834dc..4ea47e564 100644
--- a/perl-install/install_steps_newt.pm
+++ b/perl-install/install_steps_newt.pm
@@ -20,9 +20,9 @@ my $banner = __();
 
 sub banner {
     my $banner = translate(__("Mandrake Linux Installation %s"));
-    my $l = first(Newt::GetScreenSize) - length($banner) - length($_[0]) + 1;
+    my $l = first(Newt::GetScreenSize()) - length($banner) - length($_[0]) + 1;
     Newt::DrawRootText(0, 0, sprintf($banner, ' ' x $l . $_[0]));
-    Newt::Refresh;
+    Newt::Refresh();
 }
 
 sub new($$) {
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index cd8ccdec0..dc9d05ce8 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -78,7 +78,7 @@ sub detect {
     my $modem = {};
     require network::modem;
     network::modem->import;
-    my ($modem, @pci_modems) = detect_devices::getModem;
+    my ($modem, @pci_modems) = detect_devices::getModem();
     $modem->{device} and $auto_detect->{modem} = $modem->{device};
     show_pci_modems(@pci_modems) if @pci_modems;
 }
-- 
cgit v1.2.1