From d6f5330ee63311a3e5c8ef52693ac7193ea83ede Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 23 May 2003 16:10:03 +0000
Subject: perl_checker fixes

---
 perl-install/interactive/gtk.pm  | 4 ++--
 perl-install/interactive/http.pm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index a1dbd65e0..d2effe1ee 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -70,8 +70,8 @@ sub create_treeview_list {
     my $list = Gtk2::ListStore->new(Gtk2::GType->STRING);
     my $list_tv = Gtk2::TreeView->new_with_model($list);
     $list_tv->set_headers_visible(0);
-    $list_tv->get_selection()->set_mode('browse');
-    my $textcolumn = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new(), 'text' => 0);
+    $list_tv->get_selection->set_mode('browse');
+    my $textcolumn = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0);
     $list_tv->append_column($textcolumn);
     
     my $select = sub {
diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index 27ae507d8..c821467a8 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -100,7 +100,7 @@ sub ask_fromW {
     } @$l;
 
     print "</table>\n";
-    print $q->p();
+    print $q->p;
     print $q->submit('-name' => 'ok_submit', '-value' => $common->{ok} || N("Ok"));
     print $q->submit('-name' => 'cancel_submit', '-value' => $common->{cancel} || N("Cancel")) if $common->{cancel} || !exists $common->{ok};
     print $q->hidden('state'), $q->hidden('uid');
-- 
cgit v1.2.1