[gimp-perl] Use gimp_ui_init.

[Ed J <edj src gnome org>]

commit 3f42e9b49be67943b0c2af41b589213d4f9df84b
Author: Ed J <edj src gnome org>
Date:   Tue Jun 10 07:22:41 2014 +0100

    Use gimp_ui_init.

 UI/UI.xs |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)
---
diff --git a/UI/UI.xs b/UI/UI.xs
index 008a62f..0a7c4ae 100644
--- a/UI/UI.xs
+++ b/UI/UI.xs
@@ -7,10 +7,6 @@
 
 #include <gperl.h>
 
-/* dirty is used in gimp.h AND in perl < 5.005 or with PERL_POLLUTE.  */
-#ifdef dirty
-# undef dirty
-#endif
 #include <libgimp/gimp.h>
 #include <libgimp/gimpui.h>
 #ifdef GIMP_HAVE_EXPORT
@@ -138,6 +134,9 @@ typedef GtkWidget GimpUnitMenu_own;
 
 MODULE = Gimp::UI      PACKAGE = Gimp::UI
 
+BOOT:
+       gimp_ui_init (g_strdup (SvPV_nolen (get_sv("0", 0))), 0);
+
 PROTOTYPES: ENABLE
 
 gint32