From a8e130f53240e312f09f7af1592c097f5167dd24 Mon Sep 17 00:00:00 2001
From: Marc Lehmann <pcg@src.gnome.org>
Date: Mon, 16 Oct 2000 03:15:11 +0000
Subject: [PATCH] see plug-ins/perl/Changes

---
 plug-ins/perl/Changes             | 3 ++-
 plug-ins/perl/Gimp/Fu.pm          | 2 +-
 plug-ins/perl/Makefile.PL         | 2 +-
 plug-ins/perl/examples/xachlego   | 4 ++--
 plug-ins/perl/examples/xachshadow | 2 +-
 5 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/plug-ins/perl/Changes b/plug-ins/perl/Changes
index 6821c53ba6..28002733ac 100644
--- a/plug-ins/perl/Changes
+++ b/plug-ins/perl/Changes
@@ -14,7 +14,8 @@ Revision history for Gimp-Perl extension.
         - removed gimp_proc_db_proc_info from xs code in favour
           of the PDB call.
         - fix the parasite-editor as much as possible.
-	- fix install-po target (Sven)
+        - fixed bug reported by Andreas Jaekel (who chose not to accept
+          mail from me) regarding return values for register'ed scripts.
 
 1.201 Thu Aug 24 23:44:43 CEST 2000
 	** LAST VERSION THAT WORKS WITH 1.0 **
diff --git a/plug-ins/perl/Gimp/Fu.pm b/plug-ins/perl/Gimp/Fu.pm
index 80e6095765..4f935b7671 100644
--- a/plug-ins/perl/Gimp/Fu.pm
+++ b/plug-ins/perl/Gimp/Fu.pm
@@ -758,7 +758,7 @@ sub register($$$$$$$$$;@) {
                   } elsif ($run_mode != &Gimp::RUN_NONINTERACTIVE) {
                      $img->display_new unless $input_image && $$img == $$input_image;
                   }
-               } elsif (!@$retvals) {
+               } elsif (!@$results) {
                   warn __"WARNING: $function returned something that is not an image: \"$img\"\n";
                }
             }
diff --git a/plug-ins/perl/Makefile.PL b/plug-ins/perl/Makefile.PL
index 31ed3e0aef..e028a2fb36 100644
--- a/plug-ins/perl/Makefile.PL
+++ b/plug-ins/perl/Makefile.PL
@@ -193,7 +193,7 @@ install :: install-po
 	$main::dont_embed || (cd embed && \$(MAKE) install)
 
 install-po:
-	cd po && \$(MAKE) install
+	cd po && \$(MAKE) install-po
         
 ".$install;
 }
diff --git a/plug-ins/perl/examples/xachlego b/plug-ins/perl/examples/xachlego
index 4834e6cee4..d13d710ee8 100755
--- a/plug-ins/perl/examples/xachlego
+++ b/plug-ins/perl/examples/xachlego
@@ -45,8 +45,8 @@ register "xach_blocks",
          N_"<Image>/Filters/Map/Xach Blocks...",
          "*",
          [
-          [PF_SLIDER,	"block_size",	"The size of the blocks", 10, [2, 255, 1]],
-          [PF_SLIDER,	"knob_factor",	"The size of your knob", 40, [10, 100, 5]],
+          [PF_SLIDER,	"block_size",	"The size of the blocks", 10, [0, 255, 1]],
+          [PF_SLIDER,	"knob_factor",	"The size of your knob", 40, [0, 100, 5]],
          ],
          sub {
    my($img,$drawable,$blocksize, $knobfactor)=@_;
diff --git a/plug-ins/perl/examples/xachshadow b/plug-ins/perl/examples/xachshadow
index f9736b9e2d..f87d97df77 100755
--- a/plug-ins/perl/examples/xachshadow
+++ b/plug-ins/perl/examples/xachshadow
@@ -40,7 +40,7 @@ register "xach_shadows",
          N_"<Image>/Filters/Map/Xach Shadows...",
          "RGB*, GRAY*",
          [
-          [PF_SLIDER,	"block_size",	"The size of the blocks...", 10, [4, 255, 1]],
+          [PF_SLIDER,	"block_size",	"The size of the blocks...", 10, [0, 255, 1]],
          ],
          sub {
    my($img,$drawable,$blocksize) =@_;