see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -6,6 +6,10 @@ Revision history for Gimp-Perl extension.
         - patch by Frank Loemker <floemker@TechFak.Uni-Bielefeld.DE> to fix
           many missing :auto tags.
         - Gimp.xs now defines fallback functions for gettext & friends.
+        - I removed the "old prefix" check that I was almost forced to
+          implement. This was not a good idea, is not a good idea, and
+          completely breaks on many occasions. Just do not do that. If
+          only people would trust me sometimes :(
 
 1.17  Wed Nov 24 21:25:19 CET 1999
         - re-fitted i18n translation for most plug-ins.

plug-ins/perl/Gimp.pm

@@ -12,7 +12,7 @@ use subs qw(init end lock unlock canonicalize_color);
 BEGIN {
    require DynaLoader;
    @ISA=qw(DynaLoader);
-   $VERSION = 1.16;
+   $VERSION = 1.18;
    bootstrap Gimp $VERSION;
 }
 

plug-ins/perl/Gimp.xs

@@ -43,13 +43,6 @@ MODULE = Gimp	PACKAGE = Gimp
 
 PROTOTYPES: ENABLE
 
-BOOT:
-#ifdef ENABLE_NLS
-	setlocale (LC_MESSAGES, ""); /* calling twice doesn't hurt, no? */
-        bindtextdomain ("gimp-perl", datadir "/locale");
-        textdomain ("gimp-perl");
-#endif
-
 void
 _exit()
 	CODE:
@@ -62,6 +55,13 @@ _exit()
 #endif
 	abort();
 
+#ifdef ENABLE_NLS
+
+BOOT:
+	setlocale (LC_MESSAGES, ""); /* calling twice doesn't hurt, no? */
+        bindtextdomain ("gimp-perl", datadir "/locale");
+        textdomain ("gimp-perl");
+
 char *
 bindtextdomain(d,dir)
 	char *	d
@@ -85,6 +85,53 @@ __(s)
 	char *	s
         PROTOTYPE: $
 
+#else
+
+char *
+bindtextdomain(d,dir)
+	char *	d
+	char *	dir
+        CODE:
+        RETVAL = "";
+	OUTPUT:
+        RETVAL
+
+char *
+textdomain(d)
+	char *	d
+        CODE:
+        RETVAL = "";
+	OUTPUT:
+        RETVAL
+
+char *
+gettext(s)
+	char *	s
+        CODE:
+        RETVAL = s;
+	OUTPUT:
+        RETVAL
+
+char *
+dgettext(d,s)
+	char *	d
+	char *	s
+        CODE:
+        RETVAL = s;
+	OUTPUT:
+        RETVAL
+
+char *
+__(s)
+	char *	s
+        PROTOTYPE: $
+        CODE:
+        RETVAL = s;
+	OUTPUT:
+        RETVAL
+
+#endif
+
 void
 xs_exit(status)
 	int	status

plug-ins/perl/Gimp/Compat.pm

@@ -43,7 +43,7 @@ Gimp-Perl extension (contact him to include new functions) is Marc Lehmann
 
 package      Gimp::Compat;
 
-$VERSION=1.16;
+$VERSION=1.18;
 
 use Gimp ('croak', '__');
 

plug-ins/perl/Gimp/Lib.pm

@@ -6,7 +6,7 @@ use base qw(DynaLoader);
 
 require DynaLoader;
 
-$VERSION = 1.16;
+$VERSION = 1.18;
 
 use subs qw(
 	gimp_call_procedure		gimp_main	gimp_init

plug-ins/perl/Gimp/Module.pm

@@ -19,7 +19,7 @@ package Gimp::Module;
 use base qw(DynaLoader);
 require DynaLoader;
 
-$VERSION=1.16;
+$VERSION=1.18;
 
 bootstrap Gimp::Module;
 

plug-ins/perl/Gimp/Pod.pm

@@ -1,6 +1,6 @@
 package Gimp::Pod;
 
-$VERSION=1.16;
+$VERSION=1.18;
 
 sub myqx(&) {
    local $/;

plug-ins/perl/Gimp/Util.pm

@@ -51,7 +51,7 @@ require      Exporter;
 
 use Gimp;
 
-$VERSION=1.16;
+$VERSION=1.18;
 
 ##############################################################################
 =pod

plug-ins/perl/Makefile.PL

@@ -69,7 +69,8 @@ WARNING: You are using the experimental (and very broken) multithread support.
 EOF
 }
 
-@INC = grep /^\//,@INC;
+@INC = grep /^\//,@INC; # comment out as well?
+if (0) {		# comment out because it breaks
 eval { $Gimp::no_SIG=1; require Gimp };
 unless($@) {
    eval { require Gimp::Config };
@@ -108,6 +109,7 @@ EOF
       }
    }
 }
+}
 
 eval "use Gtk;"; $GTK = $@ eq "";
 eval "use Parse::RecDescent;"; $PRD = $@ eq "";

plug-ins/perl/Net/Net.pm

@@ -19,7 +19,7 @@ use Gimp ('croak','__');
 
 require DynaLoader;
 
-$VERSION = 1.16;
+$VERSION = 1.18;
 
 bootstrap Gimp::Net $VERSION;
 

plug-ins/perl/UI/UI.pm

@@ -7,7 +7,7 @@ use base 'DynaLoader';
 
 BEGIN {
    require DynaLoader;
-   $VERSION = 1.16;
+   $VERSION = 1.18;
    bootstrap Gimp::UI $VERSION;
 }