see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -1,8 +1,10 @@
 Revision history for Gimp-Perl extension.
 
+1.092
 	- testsuite failed when !HAVE_PDL (and the whole package broke on
           systems with underpowered dynamic linkers).
         - gtk-1.0.x and gimp < 1.0.4 are no longer "officially" supported.
+        - added COMPRESSION_*-constants for file_tiff.
 
 1.091 Sun May 23 13:21:34 CEST 1999
 	- include a fake typemap.pdl.

plug-ins/perl/Gimp.pm

@@ -13,7 +13,7 @@ use subs qw(init end lock unlock canonicalize_color);
 require DynaLoader;
 
 @ISA=qw(DynaLoader);
-$VERSION = 1.091;
+$VERSION = 1.092;
 
 @_param = qw(
 	PARAM_BOUNDARY	PARAM_CHANNEL	PARAM_COLOR	PARAM_DISPLAY	PARAM_DRAWABLE
@@ -50,6 +50,7 @@ $VERSION = 1.091;
         'PARASITE_PARENT_PERSISTENT',	'PARASITE_ATTACH_GRANDPARENT',	'PARASITE_GRANDPARENT_PERSISTENT',
         'PARASITE_UNDOABLE',		'PARASITE_PARENT_UNDOABLE',	'PARASITE_GRANDPARENT_UNDOABLE',
 	'TRACE_NONE',	'TRACE_CALL',	'TRACE_TYPE',	'TRACE_NAME',	'TRACE_DESC',	'TRACE_ALL',
+	'COMPRESSION_NONE',		'COMPRESSION_LZW',		'COMPRESSION_PACKBITS',
 );
 
 @_procs = ('main','xlfd_size');
@@ -88,6 +89,11 @@ sub WRAP		(){ 0 }
 sub SMEAR		(){ 1 }
 sub BLACK		(){ 2 }
 
+# file_tiff_*
+sub COMPRESSION_NONE		(){ 0 }
+sub COMPRESSION_LZW		(){ 1 }
+sub COMPRESSION_PACKBITS	(){ 2 }
+
 # internal constants shared with Perl-Server
 
 sub _PS_FLAG_QUIET	{ 0000000001 };	# do not output messages

plug-ins/perl/examples/PDB

@@ -187,7 +187,7 @@ sub set_clist {
 sub complete_function {
    my $name = shift;
    $name=~s/[-_]/[-_]/g;
-   my @matches = sort grep /$name/i,@function;
+   my @matches = eval { sort grep /$name/i,@function };
    if(@matches>70) {
       set_clist map(($_,$_),@matches[0..69]);
       $synopsis->set("showing only the first 70 matches (of ".(scalar@matches).")");

plug-ins/perl/scm2perl

@@ -58,6 +58,7 @@ $|=1;
 use Parse::RecDescent;
 
 $RD_HINT=1;
+#$RD_TRACE=1;
 
 unless(@ARGV) {
    print STDERR "Script-Fu to Perl Translator 1.0\n";
@@ -152,8 +153,9 @@ nth	=> 'sub nth {
 }',
 
    );
+   my $xskip;
+
    my $compat_fun = join("|",map {quotemeta} sort {length($b) <=> length($a)} keys %compat_fun);
-   my $skip;
    
    sub func2perl {
       my($name)=@_;
@@ -392,10 +394,10 @@ constant: /(?:$constants)(?=[ \t;)\n\r])/ gen[$constant{$item[-1]}]
 nl:		gen["\n".("   " x $indent)]
 incindent:	{ printf STDERR " %2d%%\b\b\b\b",$thisoffset*100/$::filesize unless $::quiet } { $indent++ }
 decindent:	{ $indent-- }
-skip:		{ $skip++ }
-unskip:		{ $skip-- }
-gen:		( <reject:$skip> <defer: print ::OUT $arg[0] > )[@arg](?)
-#gen:		{ $skip or print $arg[0] } #d#
+skip:		{ $xskip++ }
+unskip:		{ $xskip-- }
+gen:		( <reject:$xskip> <defer: print ::OUT $arg[0] > )[@arg](?)
+#gen:		{ $xskip or print $arg[0] } #d#
 
 EOA