Work around a bug in perl 5.8.5 RC1 + Gtk2

2 files changed, 4 insertions, 4 deletions

diff --git a/rpmdrake b/rpmdrake
index 57bdde77..3df8038d 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -683,11 +683,11 @@ or you already installed all of them."));
     $tree = Gtk2::TreeView->new_with_model($tree_model);
     $tree->get_selection->set_mode('browse');
 
-    $tree->append_column(my $pixcolumn  = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererPixbuf->new, 'pixbuf' => 1));
+    $tree->append_column(my $pixcolumn  = Gtk2::TreeViewColumn->new_with_attributes('', Gtk2::CellRendererPixbuf->new, 'pixbuf' => 1));
     $pixcolumn->{is_pix} = 1;
-    $tree->append_column(my $textcolumn = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
+    $tree->append_column(my $textcolumn = Gtk2::TreeViewColumn->new_with_attributes('', Gtk2::CellRendererText->new, 'text' => 0));
 
-    $tree->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 2));
+    $tree->append_column(Gtk2::TreeViewColumn->new_with_attributes('', Gtk2::CellRendererText->new, 'text' => 2));
     $tree->set_headers_visible(0);
     $tree->set_rules_hint(1);
 
diff --git a/rpmdrake.pm b/rpmdrake.pm
index 6141d985..ce17587b 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -408,7 +408,7 @@ by Mandrake Linux Official Updates.")), return '';
     my $tree_model = Gtk2::TreeStore->new("Glib::String");
     my $tree = Gtk2::TreeView->new_with_model($tree_model);
     $tree->get_selection->set_mode('browse');
-    my $column = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0);
+    my $column = Gtk2::TreeViewColumn->new_with_attributes('', Gtk2::CellRendererText->new, 'text' => 0);
     $tree->append_column($column);
     $tree->set_headers_visible(0);