[perl-Gtk3] Rename a variable for consistency

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

commit abdf744e348c7a3f236f9da70124da64ed1588b8
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Tue Jan 8 23:10:35 2013 +0100

    Rename a variable for consistency

 lib/Gtk3.pm |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index dbf2abb..7d9cba5 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -114,7 +114,7 @@ my %_GDK_REBLESSERS = (
   'Gtk3::Gdk::Event' => \&Gtk3::Gdk::Event::_rebless,
 );
 
-my %_GDK_TYPE_TO_PACKAGE = (
+my %_GDK_EVENT_TYPE_TO_PACKAGE = (
   'expose' => 'Expose',
   'motion-notify' => 'Motion',
   'button-press' => 'Button',
@@ -159,7 +159,7 @@ my %_GDK_TYPE_TO_PACKAGE = (
 {
   no strict qw(refs);
   my %seen;
-  foreach (grep { !$seen{$_}++ } values %_GDK_TYPE_TO_PACKAGE) {
+  foreach (grep { !$seen{$_}++ } values %_GDK_EVENT_TYPE_TO_PACKAGE) {
     push @{'Gtk3::Gdk::Event' . $_ . '::ISA'}, 'Gtk3::Gdk::Event';
   }
 }
@@ -167,8 +167,8 @@ my %_GDK_TYPE_TO_PACKAGE = (
 sub Gtk3::Gdk::Event::_rebless {
   my ($event) = @_;
   my $package = 'Gtk3::Gdk::Event';
-  if (exists $_GDK_TYPE_TO_PACKAGE{$event->type}) {
-    $package .= $_GDK_TYPE_TO_PACKAGE{$event->type};
+  if (exists $_GDK_EVENT_TYPE_TO_PACKAGE{$event->type}) {
+    $package .= $_GDK_EVENT_TYPE_TO_PACKAGE{$event->type};
   }
   return bless $event, $package;
 }