see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -2,6 +2,10 @@ Revision history for Gimp-Perl extension.
 
 	- scm2perl had broken cdr and cddr stubs...
         - fixed examples/font_table.
+        - applied fixes from Lupe Christoph.
+        - allow uppercase letters in hex colour specifications.
+        - gimp_text_fontname ignored the image argument in
+          compatibility mode (patch by Dov Grobgeld).
 
 1.092 Wed Jun  2 14:52:29 CEST 1999
 	- testsuite failed when !HAVE_PDL (and the whole package broke on

plug-ins/perl/Gimp.pm

@@ -183,7 +183,7 @@ sub canonicalize_colour {
       [@_];
    } elsif (ref $_[0]) {
       $_[0];
-   } elsif ($_[0] =~ /^#([0-9a-f]{2,2})([0-9a-f]{2,2})([0-9a-f]{2,2})$/) {
+   } elsif ($_[0] =~ /^#([0-9a-fA-F]{2,2})([0-9a-fA-F]{2,2})([0-9a-fA-F]{2,2})$/) {
       [map {eval "0x$_"} ($1,$2,$3)];
    } else {
       unless (defined %rgb_db) {

plug-ins/perl/Gimp/Compat.pm

@@ -116,11 +116,19 @@ fun 1,1,gimp_text_get_extents_fontname,sub {
 };
 	
 fun 1,1,gimp_text_fontname,sub {
-   shift if $_[0]->isa('Gimp::Image');
+   my $img = shift if $_[0]->isa('Gimp::Image');
    my ($drw, $x,$y, $string,$border,$antialias, $xlfd_size, $xlfd_unit, $xlfd) = @_;
+   my @params;
+
+   if (!defined $drw || $drw == -1) {
+       $drw = undef;
+       @params = ($img);
+   }
+
+   push(@params, $drw, $x, $y, $string, $border, $antialias,
+	xlfd_unpack($xlfd, $xlfd_size, $xlfd_unit));
    
-   Gimp->text_ext($drw, $x, $y, $string, $border, $antialias,
-                  xlfd_unpack($xlfd, $xlfd_size, $xlfd_unit));
+   Gimp->text_ext(@params);
 };
 
 fun 1,1,gimp_paintbrush,sub {

plug-ins/perl/Gimp/Lib.xs

@@ -608,7 +608,10 @@ param_stash (GParamType type)
 	                    0		, 0		, 0		, 0		, 0		,
 	                    PKG_COLOR	, PKG_REGION	, PKG_DISPLAY	, PKG_IMAGE	, PKG_LAYER	,
 	                    PKG_CHANNEL	, PKG_DRAWABLE	, PKG_SELECTION	, 0		, 0		,
-	                    PKG_PARASITE, 0
+#if GIMP_PARASITE
+	                    PKG_PARASITE,
+#endif
+	                    0
 	                   };
   
   if (bless [type] && !bless_hv [type])

plug-ins/perl/Net/Net.xs

@@ -9,8 +9,16 @@
 #define NEED_newCONSTSUB
 #include "ppport.h"
 
+#if !defined(PERLIO_IS_STDIO) && defined(HASATTRIBUTE)
+# undef printf
+#endif
+
 #include <glib.h>
 
+#if !defined(PERLIO_IS_STDIO) && defined(HASATTRIBUTE)
+# define printf PerlIO_stdoutf
+#endif
+
 #if HAVE_PDL
 
 # include <pdlcore.h>