[perl-Glib-Object-Introspection] Remove a few overly-defensive eval's

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

commit efbfea0ccefe3984eb4c886cfbb0f50defc2728b
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Tue Jul 3 23:34:00 2012 +0200

    Remove a few overly-defensive eval's

 lib/Glib/Object/Introspection.pm |   16 +++++++++-------
 1 files changed, 9 insertions(+), 7 deletions(-)
---
diff --git a/lib/Glib/Object/Introspection.pm b/lib/Glib/Object/Introspection.pm
index ad29920..bc0c719 100644
--- a/lib/Glib/Object/Introspection.pm
+++ b/lib/Glib/Object/Introspection.pm
@@ -72,13 +72,15 @@ sub setup {
 
   $_BASENAME_TO_PACKAGE{$basename} = $package;
 
-  local $@;
-  my %shift_package_name_for = eval {
-    map { $_ => 1 } @{$params{class_static_methods}} };
-  my %flatten_array_ref_return_for = eval {
-    map { $_ => 1 } @{$params{flatten_array_ref_return_for}} };
-  my %handle_sentinel_boolean_for = eval {
-    map { $_ => 1 } @{$params{handle_sentinel_boolean_for}} };
+  my %shift_package_name_for = exists $params{class_static_methods}
+    ? map { $_ => 1 } @{$params{class_static_methods}}
+    : ();
+  my %flatten_array_ref_return_for = exists $params{flatten_array_ref_return_for}
+    ? map { $_ => 1 } @{$params{flatten_array_ref_return_for}}
+    : ();
+  my %handle_sentinel_boolean_for = exists $params{handle_sentinel_boolean_for}
+    ? map { $_ => 1 } @{$params{handle_sentinel_boolean_for}}
+    : ();
 
   if (exists $params{reblessers}) {
     $_REBLESSERS{$_} = $params{reblessers}->{$_}