[perl-Gtk3] Implement the Gtk3::Stock name corrections in a more compatible way

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

commit 7666ce88c5b0a6899c05e1e8e4724126a6b875e2
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Tue Sep 8 13:27:48 2015 +0200

    Implement the Gtk3::Stock name corrections in a more compatible way
    
    Instead of renaming, e.g., Gtk3::stock_add to Gtk3::Stock::add, just add
    the latter as an alias for the former.  This way, the initial variant,
    which is listed by perli11ndoc, can still be used.

 lib/Gtk3.pm |   28 ++++++++++++++++++----------
 1 files changed, 18 insertions(+), 10 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index 1374087..2be4a6d 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -27,28 +27,20 @@ my $_PANGO_PACKAGE = 'Pango';
 
 # - gtk customization ------------------------------------------------------- #
 
-my %_GTK_NAME_CORRECTIONS = (
-  'Gtk3::stock_add' => 'Gtk3::Stock::add',
-  'Gtk3::stock_add_static' => 'Gtk3::Stock::add_static',
-  'Gtk3::stock_list_ids' => 'Gtk3::Stock::list_ids',
-  'Gtk3::stock_lookup' => 'Gtk3::Stock::lookup',
-  'Gtk3::stock_set_translate_func' => 'Gtk3::Stock::set_translate_func',
-);
 my @_GTK_FLATTEN_ARRAY_REF_RETURN_FOR = qw/
   Gtk3::ActionGroup::list_actions
   Gtk3::Builder::get_objects
   Gtk3::CellLayout::get_cells
   Gtk3::Container::get_children
   Gtk3::SizeGroup::get_widgets
-  Gtk3::Stock::list_ids
   Gtk3::TreePath::get_indices
   Gtk3::TreeView::get_columns
   Gtk3::UIManager::get_action_groups
   Gtk3::UIManager::get_toplevels
   Gtk3::Window::list_toplevels
+  Gtk3::stock_list_ids
 /;
 my @_GTK_HANDLE_SENTINEL_BOOLEAN_FOR = qw/
-  Gtk3::Stock::lookup
   Gtk3::TextBuffer::get_selection_bounds
   Gtk3::TreeModel::get_iter
   Gtk3::TreeModel::get_iter_first
@@ -64,6 +56,7 @@ my @_GTK_HANDLE_SENTINEL_BOOLEAN_FOR = qw/
   Gtk3::TreeView::get_tooltip_context
   Gtk3::TreeView::get_visible_range
   Gtk3::TreeViewColumn::cell_get_position
+  Gtk3::stock_lookup
 /;
 my @_GTK_USE_GENERIC_SIGNAL_MARSHALLER_FOR = (
   ['Gtk3::Editable', 'insert-text'],
@@ -224,7 +217,6 @@ sub import {
     basename => $_GTK_BASENAME,
     version => $_GTK_VERSION,
     package => $_GTK_PACKAGE,
-    name_corrections => \%_GTK_NAME_CORRECTIONS,
     flatten_array_ref_return_for => \ _GTK_FLATTEN_ARRAY_REF_RETURN_FOR,
     handle_sentinel_boolean_for => \ _GTK_HANDLE_SENTINEL_BOOLEAN_FOR,
     use_generic_signal_marshaller_for => \ _GTK_USE_GENERIC_SIGNAL_MARSHALLER_FOR);
@@ -1091,6 +1083,22 @@ sub Gtk3::RecentChooserDialog::new_for_manager {
   return $dialog;
 }
 
+{
+  no strict qw/refs/;
+
+  my %stock_name_corrections = (
+    'Gtk3::Stock::add' => 'Gtk3::stock_add',
+    'Gtk3::Stock::add_static' => 'Gtk3::stock_add_static',
+    'Gtk3::Stock::list_ids' => 'Gtk3::stock_list_ids',
+    'Gtk3::Stock::lookup' => 'Gtk3::stock_lookup',
+    'Gtk3::Stock::set_translate_func' => 'Gtk3::stock_set_translate_func',
+  );
+
+  foreach my $new (keys %stock_name_corrections) {
+    *{$new} = \&{$stock_name_corrections{$new}};
+  }
+}
+
 sub Gtk3::TextBuffer::create_tag {
   my ($buffer, $tag_name, @rest) = @_;
   if (@rest % 2) {