diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-10-23 11:22:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-10-23 11:22:41 +0000 |
| commit | 68b151a5194f36584d0c27d8e95fb1f84eedcd1f (patch) | |
| tree | d714b71047130e9a2af1e30622c9e986c435dc71 /perl-install | |
| parent | 17068198874ddf8c49ee708311cf83dbe723fd2a (diff) | |
| download | drakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.tar drakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.tar.gz drakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.tar.bz2 drakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.tar.xz drakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.zip | |
make perl_checker happy: replace PKG::f with PKG::f()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/harddrake/sound.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps_newt.pm | 4 | ||||
| -rw-r--r-- | 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; } |