From 68b151a5194f36584d0c27d8e95fb1f84eedcd1f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 23 Oct 2002 11:22:41 +0000 Subject: make perl_checker happy: replace PKG::f with PKG::f() --- perl-install/install_steps_newt.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps_newt.pm') 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($$) { -- cgit v1.2.1