[perl-Gtk2] Cope with the rename of the keysym defines in gtk+ 2.22

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

commit bd46d22c40e03e7a54172b12d3ea1553a335ce93
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun Sep 19 03:02:22 2010 +0200

    Cope with the rename of the keysym defines in gtk+ 2.22
    
    The new defines have a GDK_KEY_ prefix.

 tools/genkeysyms.pl |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/tools/genkeysyms.pl b/tools/genkeysyms.pl
index fcfdb53..c1b5950 100644
--- a/tools/genkeysyms.pl
+++ b/tools/genkeysyms.pl
@@ -10,7 +10,8 @@ foreach (@dirs) {
 		print "package Gtk2::Gdk::Keysyms;\n";
 		print "\%Gtk2::Gdk::Keysyms = (\n";
 		while (<IN>) {
-			/^#define\sGDK_([^ \t]*)\s+(0x[0-9A-Fa-f]+)/ and
+			# gtk+ 2.22 changed the prefix from GDK_ to GDK_KEY_.
+			/^#define\sGDK_(?:KEY_)?([^ \t]*)\s+(0x[0-9A-Fa-f]+)/ and
 				print "   '$1' => $2,\n";
 		}
 		print ");\n";