see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -18,6 +18,9 @@ Revision history for Gimp-Perl extension.
         - applied Perl-Server reuseaddress fix by gphan@webjuice.com.
         - corrected the libintl fix to really work.
         - added fr and ru translations.
+        - experimental 5.6 thread compatibility improvements.
+        - corrected menu hiliting problem in firetext and glowing_steel.
+        - add a call to gimp_plugin_add_domain to Lib.xs.
 
 1.19  Thu Jan  6 00:21:58 CET 2000
         - used N_ to mark all the menu paths, since gimp now tries to

plug-ins/perl/Gimp/Lib.xs

@@ -33,6 +33,10 @@
 #include "XSUB.h"
 #include "gppport.h"
 
+#ifndef pTHX_
+#define pTHX_
+#endif
+
 #include "../perl-intl.h"
 
 /* dirty is used in gimp.h AND in perl < 5.005 or with PERL_POLLUTE.  */
@@ -188,7 +192,7 @@ static SV *newSVn (STRLEN len)
 static GHashTable *gdrawable_cache;
 
 /* magic stuff.  literally.  */
-static int gdrawable_free (SV *obj, MAGIC *mg)
+static int gdrawable_free (pTHX_ SV *obj, MAGIC *mg)
 {
   GDrawable *gdr = (GDrawable *)SvIV(obj);
 
@@ -265,7 +269,7 @@ static GTile *old_tile (SV *sv)
 }
 
 /* magic stuff.  literally.  */
-static int gpixelrgn_free (SV *obj, MAGIC *mg)
+static int gpixelrgn_free (pTHX_ SV *obj, MAGIC *mg)
 {
 /*  GPixelRgn *pr = (GPixelRgn *)SvPV_nolen(obj); */
 /* automatically done on detach */
@@ -2211,6 +2215,10 @@ gimp_pixel_rgn_data(...)
 
 BOOT:
 	trace_file = PerlIO_stderr ();
+#if GIMP_CHECK_VERSION(1,1,17)
+	gimp_plugin_add_domain ("gimp-perl", datadir "/locale");
+#endif
+
 
 #
 # this function overrides a pdb function for speed

plug-ins/perl/examples/fire

@@ -56,7 +56,7 @@ register "firetext",
 	 "Marc Lehmann",
 	 "19990802",
 	 N_"<Toolbox>/Xtns/Render/Logos/Firetext",
-	 "*",
+	 undef,
 	 [
           [PF_TEXT,	"text",		"The text to render (can be multi-line)", "burn,\nBurn,\nBURN!"],
           [PF_FONT,	"font",		"The font to use"],

plug-ins/perl/examples/glowing_steel

@@ -307,7 +307,7 @@ register
 	"film \"Lost In Space\".",
   "Aaron Sherman", "Aaron Sherman (c)", "1999-06-14",
   N_"<Toolbox>/Xtns/Render/Logos/Glowing Steel",
-  "*",
+  undef,
   [
    [PF_STRING, "string", "string", "GET LOST"],
    # The font in the poster was like "cobalt extended"