diff --git a/plug-ins/perl/Changes b/plug-ins/perl/Changes
index 83bd858e5c..8b5266b4c9 100644
--- a/plug-ins/perl/Changes
+++ b/plug-ins/perl/Changes
@@ -9,6 +9,7 @@ Revision history for Gimp-Perl extension.
         - added examples/giflogo.
         - do not install examples/gap-vcr.
         - added new sethspin, with slight changes.
+        - do not install "feedback".
 
 1.19  Thu Jan  6 00:21:58 CET 2000
         - used N_ to mark all the menu paths, since gimp now tries to
diff --git a/plug-ins/perl/Makefile.PL b/plug-ins/perl/Makefile.PL
index c4d230bacc..ba8d2ed32f 100644
--- a/plug-ins/perl/Makefile.PL
+++ b/plug-ins/perl/Makefile.PL
@@ -28,7 +28,7 @@ if ($ARGV[0] ne "--writemakefile") {
 
 @pins =
    qw(windify prep4gif webify PDB tex-to-float ditherize
-      feedback xachlego xachshadow parasite-editor roundsel
+      xachlego xachshadow parasite-editor roundsel
       scratches blowinout terral_text xachvision perlcc giflogo
       animate_cells image_tile yinyang stamps font_table sethspin
       perlotine randomblends innerbevel fit-text guidegrid roundrectsel
diff --git a/plug-ins/perl/TODO b/plug-ins/perl/TODO
index 9bf4e6aeb2..9e16367cba 100644
--- a/plug-ins/perl/TODO
+++ b/plug-ins/perl/TODO
@@ -23,6 +23,8 @@ firetext! AND _grayscale_ for map_gradient(!)
 sota-chrome pagesize of 2 is _wrong_
 
 bugs
+  * alow gimp_selection_shrink with a zero argument.
+  * ping-funktion für JENS.
 [DONE]  * never grayed out = "undef" imagetypes!!!
 [DONE]  * gimp_layer_set_name(4, "(null)") = gimp: fatal error: sigsegv caught
 [KILL]  * ftp://metalab.unc.edu/pub/Linux/X11/gtkbuffet/libs/gtkxmhtml/ into INSTALL
diff --git a/plug-ins/perl/examples/blowinout b/plug-ins/perl/examples/blowinout
index f22788ac9d..59b81afa38 100755
--- a/plug-ins/perl/examples/blowinout
+++ b/plug-ins/perl/examples/blowinout
@@ -91,7 +91,7 @@ register
 	"John Pitney",
 	"John Pitney <pitney\@uiuc.edu>",
 	"1999-03-15",
-	N_"<Image>/Filters/Distorts/BlowInOut",
+	N_"<Image>/Filters/Animation/BlowInOut",
 	"*",
 	[
 	 [PF_INT32, "angle", "Wind Angle, 0 is left", 120],
diff --git a/plug-ins/perl/examples/frame_reshuffle b/plug-ins/perl/examples/frame_reshuffle
index e35e87b531..4ad9221f0b 100755
--- a/plug-ins/perl/examples/frame_reshuffle
+++ b/plug-ins/perl/examples/frame_reshuffle
@@ -9,7 +9,7 @@ register	"layer_reorder",
 		"Marc Lehmann <pcg\@goof.com>",
 		"Marc Lehmann <pcg\@goof.com>",
 		"19990708",
-		N_"<Image>/Layers/Stack/Reorder Layers",
+		N_"<Image>/Layers/Stack/Reorder Layers...",
 		"*",
 		[
                  [PF_RADIO,	"function",	"which remapping function to use: CUSTOM (0), REVERSE (1), SHIFT (2)", 1,
diff --git a/plug-ins/perl/examples/innerbevel b/plug-ins/perl/examples/innerbevel
index 7d746b2247..802ff5c65a 100755
--- a/plug-ins/perl/examples/innerbevel
+++ b/plug-ins/perl/examples/innerbevel
@@ -48,7 +48,6 @@ register $regname, $shortdesc, $longdesc, $authorname, $author, $date, $path, $i
 
 my ($font, $text, $color1, $color2, $azimuth, $elevation, $depth, $maptype) = @_;
 # -- step 1 -- 
-$oldst = get_state();
 
 gimp_palette_set_background($color1);
 gimp_palette_set_foreground($color2);
@@ -93,7 +92,6 @@ $layer2->translate(2, 3);
 $img->add_new_layer(2);
 $img->gimp_selection_none();
 
-set_state($oldst); # Doesn't seem to work - says it can't grok color 
 return();
 };