diff --git a/configure.in b/configure.in
index e397c4f211..02c1325d45 100644
--- a/configure.in
+++ b/configure.in
@@ -476,7 +476,7 @@ if eval "test x$enable_perl != xno"; then
       dnl these are gross hacks
       GIMP_CFLAGS="$CFLAGS -I$srcdir -I\$topdir/../.. $GTK_CFLAGS"
       GIMP_CFLAGS_NOUI="$GIMP_CFLAGS"
-      GIMP_LIBS="$LIBS -L\$topdir/../../libgimp -L\$topdir/../../libgimp/.libs -lgimp"
+      GIMP_LIBS="$LIBS -L\$topdir/../../libgimp/.libs -L\$topdir/../../libgimp -lgimp"
       GIMP_LIBS_NOUI="$GIMP_LIBS"
       GIMPTOOL="../../gimptool"
       IN_GIMP=1
@@ -517,8 +517,10 @@ if eval "test x$enable_perl != xno"; then
       AC_SUBST(GIMP_LIBS)
 
       dnl we ignore prefix
-      echo "echo invoking perl for configuration..." >plug-ins/perl/config.status
-      echo "$PERL Makefile.PL --writemakefile" >>plug-ins/perl/config.status
+      cat >plug-ins/perl/config.status <<EOF
+      echo invoking perl for configuration...
+      $PERL Makefile.PL --writemakefile
+EOF
       GIMP_PERL=perl
    else
       GIMP_PERL=
diff --git a/plug-ins/perl/Changes b/plug-ins/perl/Changes
index 74d1ee8382..41a035cf58 100644
--- a/plug-ins/perl/Changes
+++ b/plug-ins/perl/Changes
@@ -1,7 +1,15 @@
 Revision history for Gimp-Perl extension.
 
+	- more configuration cleanups
+	- fixed Gimp::Fu to respect RUN_WITH_LAST_VALS again
+	- added more oo-prefixes to channels and layers (see Gimp::OO)
+
+1.0441 Sat Oct 24 22:52:05 CEST 1998
 	- t/run.t does much less when no tests are requested
 	- cleaned up Gimp::UI learned much about Gtk (but still not much)
+	- an occurence of PARAM_PARASITE wasn't wrapped into an #if-clause.
+	  this is just one of the countless braindead bugs being found
+	  by schinder@pobox.com and the cpan-testers! Thanks!
 
 1.044 Sat Oct 24 03:54:47 CEST 1998
 	- allow PF_PATTERN etc. to be usable as commandline arguments
diff --git a/plug-ins/perl/Gimp.pm b/plug-ins/perl/Gimp.pm
index 950e9f279b..73431af2bb 100644
--- a/plug-ins/perl/Gimp.pm
+++ b/plug-ins/perl/Gimp.pm
@@ -11,7 +11,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD %EXPORT_TAGS @EXPORT_FAIL
 require DynaLoader;
 
 @ISA = qw(DynaLoader);
-$VERSION = 1.044;
+$VERSION = 1.0441;
 
 @_param = qw(
 	PARAM_BOUNDARY	PARAM_CHANNEL	PARAM_COLOR	PARAM_DISPLAY	PARAM_DRAWABLE
@@ -291,11 +291,11 @@ sub _pseudoclass {
   push(@{"${class}::PREFIXES"}		, @prefixes); @prefixes=@{"${class}::PREFIXES"};
 }
 
-_pseudoclass qw(Layer		gimp_layer_ gimp_drawable_ gimp_image_ gimp_);
+_pseudoclass qw(Layer		gimp_layer_ gimp_drawable_ gimp_floating_sel_ gimp_image_ gimp_);
 _pseudoclass qw(Image		gimp_image_ gimp_drawable_ gimp_);
 _pseudoclass qw(Drawable	gimp_drawable_ gimp_layer_ gimp_image_ gimp_);
 _pseudoclass qw(Selection 	gimp_selection_);
-_pseudoclass qw(Channel		gimp_channel_ gimp_drawable_ gimp_image_ gimp_);
+_pseudoclass qw(Channel		gimp_channel_ gimp_drawable_ gimp_selection_ gimp_image_ gimp_);
 _pseudoclass qw(Display		gimp_display_ gimp_);
 _pseudoclass qw(Plugin		plug_in_);
 _pseudoclass qw(Gradients	gimp_gradients_);
diff --git a/plug-ins/perl/Gimp/Fu.pm b/plug-ins/perl/Gimp/Fu.pm
index d80c1b6603..32f26bdad0 100644
--- a/plug-ins/perl/Gimp/Fu.pm
+++ b/plug-ins/perl/Gimp/Fu.pm
@@ -749,7 +749,8 @@ sub register($$$$$$$$$;@) {
          return unless $res;
       } elsif ($run_mode == &Gimp::RUN_NONINTERACTIVE) {
       } elsif ($run_mode == &Gimp::RUN_WITH_LAST_VALS) {
-         @_=@defaults;	# FIXME
+         my $VAR1; # Data::Dumper is braindamaged
+         @_=@{eval $Gimp::Data{"$function/_fu_data"}};
       } else {
          die "run_mode must be INTERACTIVE, NONINTERACTIVE or WITH_LAST_VALS\n";
       }
diff --git a/plug-ins/perl/Gimp/Lib.xs b/plug-ins/perl/Gimp/Lib.xs
index 3e61238475..86ef13ccd9 100644
--- a/plug-ins/perl/Gimp/Lib.xs
+++ b/plug-ins/perl/Gimp/Lib.xs
@@ -296,7 +296,8 @@ dump_params (int nparams, GParam *args, GParamDef *params)
                           args[i].data.d_color.green,
                           args[i].data.d_color.blue);
             break;
-          
+
+#if GIMP_PARASITE
           case PARAM_PARASITE:
             {
               gint32 found = 0;
@@ -318,6 +319,7 @@ dump_params (int nparams, GParam *args, GParamDef *params)
               trace_printf (", %d bytes data]", args[i].data.d_parasite.size);
             }
             break;
+#endif
             
           default:
             trace_printf ("(?%d?)", args[i].type);
diff --git a/plug-ins/perl/Gimp/Makefile.PL b/plug-ins/perl/Gimp/Makefile.PL
index 4fba5cb03f..02f1c475b0 100644
--- a/plug-ins/perl/Gimp/Makefile.PL
+++ b/plug-ins/perl/Gimp/Makefile.PL
@@ -3,10 +3,23 @@ use ExtUtils::MakeMaker;
 $topdir="..";
 do '../config.pl';
 
+sub MY::const_loadlibs {
+   my $self = shift;
+   if ($IN_GIMP) {
+      $self->{LD_RUN_PATH} = join (":",
+         $libdir,
+         split /:/,$self->{LD_RUN_PATH}
+      );
+   }
+   package MY;
+   $self->SUPER::const_loadlibs(@_);
+}
+
 WriteMakefile(
     'NAME'	=> 'Gimp::Lib',
     'VERSION_FROM' => '../Gimp.pm',
     'INC'	=> "$CPPFLAGS -I.. $CFLAGS $GIMP_INC_NOUI $DEFS".($IN_GIMP ? " -DIN_GIMP" : ""),
+    'macro'	=> { libdir => $libdir, exec_prefix => $exec_prefix, prefix => $prefix },
     'LDLOADLIBS'=> "$LDFLAGS $LIBS $GIMP_LIBS_NOUI",
     'DEFINE'	=> '',
 );
diff --git a/plug-ins/perl/Gimp/OO.pod b/plug-ins/perl/Gimp/OO.pod
index 9352fd5e08..cd7a2c78aa 100644
--- a/plug-ins/perl/Gimp/OO.pod
+++ b/plug-ins/perl/Gimp/OO.pod
@@ -94,6 +94,7 @@ that are checked are shown as well (the null prefix "" is implicit).
 
  gimp_layer_
  gimp_drawable_
+ gimp_floating_sel_
  gimp_image_
  gimp_
 
@@ -118,6 +119,7 @@ that are checked are shown as well (the null prefix "" is implicit).
 
  gimp_channel_
  gimp_drawable_
+ gimp_selection_
  gimp_image_
  gimp_
 
diff --git a/plug-ins/perl/Makefile.PL b/plug-ins/perl/Makefile.PL
index b4a4805aa2..c1007c7055 100644
--- a/plug-ins/perl/Makefile.PL
+++ b/plug-ins/perl/Makefile.PL
@@ -96,7 +96,6 @@ WARNING: Parse::RecDescent is not installed (correctly) on your system. This
 EOF
 
 ($major,$minor,$patch)=split /[._]/,$Gtk::VERSION;
-print "using gtk version $Gtk::VERSION\n";
 
 unless ($major > 0
         || ($major == 0 && $minor >  3)
@@ -118,6 +117,7 @@ sub MY::postamble {
 maintainer-clean :: realclean
 objclean :: realclean
 distclean :: realclean
+check :: test
 
 install :: install-plugins
 
@@ -157,9 +157,8 @@ WriteMakefile(
     'LIBS'	=> [''],
     'INC'	=> "$CPPFLAGS $CFLAGS $GIMP_INC_NOUI $DEFS",
     'DEFINE'	=> ($IN_GIMP ? " -DIN_GIMP" : ""),
-    'realclean'	=> { FILES => "config.status" },
-    'clean'	=> { FILES => "config.log config.h pcfg config.cache config.pl Makefile.old ".
-                              "etc/config.pl etc/config.status etc/config.cache etc/config.h etc/config.log" },
+    'realclean'	=> { FILES => "config.status config.cache config.log config.pl config.h" },
+    'clean'	=> { FILES => "Makefile.old config.pl" },
 );
 
 $IN_GIMP or print <<EOF;
diff --git a/plug-ins/perl/TODO b/plug-ins/perl/TODO
index 1d7cbd7689..43a4f5b59b 100644
--- a/plug-ins/perl/TODO
+++ b/plug-ins/perl/TODO
@@ -3,7 +3,7 @@ up-to-date and may not even be readable ;)
 
 shortcuts (don't ask)
 
-  gimp pix/ka001.jpg -b "(extension-perl-server 0 0 0)"
+gimp ~/pix/ka001.jpg -b "(extension-perl-server 0 0 0)"
 
 bugs
 
diff --git a/plug-ins/perl/etc/config.pl.in b/plug-ins/perl/etc/config.pl.in
index 0e64ae9cff..cbe30960db 100644
--- a/plug-ins/perl/etc/config.pl.in
+++ b/plug-ins/perl/etc/config.pl.in
@@ -3,7 +3,10 @@
 $CPPFLAGS	= q[@CPPFLAGS@];
 $CFLAGS		= q[@CFLAGS@];
 $LDFLAGS	= q[@LDFLAGS@];
+
 $prefix		= q[@prefix@];
+$exec_prefix	= q[@exec_prefix@];
+$libdir		= q[@libdir@];
 
 $IN_GIMP	= q[@IN_GIMP@];