[perl-Gtk3] Do not leak internal exceptions to the caller

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

commit 02f02db596ac48c746a85f37adb813fcdbeab544
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Sat Sep 10 23:51:07 2011 +0200

    Do not leak internal exceptions to the caller

 lib/Gtk3.pm |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index 7866e11..f7d35b1 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -68,6 +68,7 @@ sub Gtk3::main_quit {
 
 sub Gtk3::ListStore::new {
   my ($class, @types) = @_;
+  local $@;
   my $real_types = (@types == 1 && eval { @{$types[0]} })
                  ? $types[0]
                  : \ types;
@@ -79,6 +80,7 @@ sub Gtk3::ListStore::new {
 sub Gtk3::ListStore::set {
   my ($model, $iter, @columns_and_values) = @_;
   my (@columns, @values);
+  local $@;
   if (@columns_and_values == 2 && eval { @{$columns_and_values[0]} }) {
     @columns = @{$columns_and_values[0]};
     @values = @{$columns_and_values[1]};