perl-Gtk2 r2105 - trunk

[tsch svn gnome org]

Author: tsch
Date: Tue Jan 13 19:29:39 2009
New Revision: 2105
URL: http://svn.gnome.org/viewvc/perl-Gtk2?rev=2105&view=rev

Log:
In the Gtk2::Pango compatibility code, avoid warnings about names that are used
only once by checking for definedness before creating aliases.


Modified:
   trunk/ChangeLog
   trunk/Gtk2.pm

Modified: trunk/Gtk2.pm
==============================================================================
--- trunk/Gtk2.pm	(original)
+++ trunk/Gtk2.pm	Tue Jan 13 19:29:39 2009
@@ -57,7 +57,11 @@
     ISA
   );
   foreach my $key (@pango_keys) {
-    *{'Gtk2::Pango::' . $key} = *{'Pango::' . $key};
+    # Avoid warnings about names that are used only once by checking for
+    # definedness here.
+    if (defined *{'Pango::' . $key}) {
+      *{'Gtk2::Pango::' . $key} = *{'Pango::' . $key};
+    }
   }
 }