[perl-Gtk3] Hush a new warning in the test suite

[Torsten SchÃnfeld <tsch src gnome org>]

commit 319ecef8a1b9910a63488b3a8924083b7f1e2768
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Fri Feb 8 01:27:31 2013 +0100

    Hush a new warning in the test suite

 t/zz-GtkCellRendererIface.t |   12 +++++++-----
 1 files changed, 7 insertions(+), 5 deletions(-)
---
diff --git a/t/zz-GtkCellRendererIface.t b/t/zz-GtkCellRendererIface.t
index d9ac499..b7643b1 100644
--- a/t/zz-GtkCellRendererIface.t
+++ b/t/zz-GtkCellRendererIface.t
@@ -21,12 +21,14 @@ foreach my $package (qw/StandAlone InheritorC InheritorPerl/) {
   my $aligned_rect = $cell->get_aligned_area ($view, 'selected', $rect);
   ok (exists $aligned_rect->{x});
 
-  $cell->set (mode => 'editable');
-  $cell->set (editable => TRUE);
-  my $event = Gtk3::Gdk::Event->new ("button-press");
-  my $editable = $cell->start_editing ($event, $view, "0", $rect, $rect, qw(selected));
-  isa_ok ($editable, "Gtk3::Entry");
   TODO: {
+    local $SIG{__WARN__} = sub { warn $_[0] if -1 == index $_[0], 'Asked to hand out object' };
+    $cell->set (mode => 'editable');
+    $cell->set (editable => TRUE);
+    my $event = Gtk3::Gdk::Event->new ("button-press");
+    my $editable = $cell->start_editing ($event, $view, "0", $rect, $rect, qw(selected));
+    isa_ok ($editable, "Gtk3::Entry");
+
     local $TODO = 'ref-counting not quite right yet';
     my $destroyed = FALSE;
     $editable->signal_connect (destroy => sub { $destroyed = TRUE });