[perl-Gtk2] Rename an internal variable to avoid confusion

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

commit 11a7311a88913c3a09adb72f4413e6bc3def4bdf
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Tue Sep 20 15:00:39 2016 +0200

    Rename an internal variable to avoid confusion

 lib/Gtk2.pm |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/lib/Gtk2.pm b/lib/Gtk2.pm
index 9b45d2c..d637764 100644
--- a/lib/Gtk2.pm
+++ b/lib/Gtk2.pm
@@ -110,20 +110,20 @@ if ($^V ge v5.20.0) {
   no warnings 'redefine';
 
   my $disable_setlocale = 0;
-  my $orig = \&Gtk2::disable_setlocale;
+  my $orig_setlocale = \&Gtk2::disable_setlocale;
   *{Gtk2::disable_setlocale} = sub {
     $disable_setlocale = 1;
-    $orig->(@_);
+    $orig_setlocale->(@_);
   };
 
   # gtk_init_with_args is not wrapped.
   foreach my $function (qw/Gtk2::init Gtk2::init_check Gtk2::parse_args/) {
-    my $orig = \&{$function};
+    my $orig_function = \&{$function};
     *{$function} = sub {
       if (!$disable_setlocale) {
         POSIX::setlocale (POSIX::LC_ALL (), '');
       }
-      $orig->(@_);
+      $orig_function->(@_);
     };
   }
 }