see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -31,6 +31,7 @@ Revision history for Gimp-Perl extension.
         - added examples/gap-vcr
         - applied Kevon Cozens patch to scm2scm. That's a great start, I
           should really add the rest of the function names.
+        - use XSLoader instead of DynaLoader where available.
 
 1.17  Wed Nov 24 21:25:19 CET 1999
         - re-fitted i18n translation for most plug-ins.

plug-ins/perl/Gimp.pm

@@ -10,10 +10,15 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD %EXPORT_TAGS @EXPORT_FAIL
 use subs qw(init end lock unlock canonicalize_color);
 
 BEGIN {
-   require DynaLoader;
-   @ISA=qw(DynaLoader);
    $VERSION = 1.18;
-   bootstrap Gimp $VERSION;
+   eval {
+      require XSLoader;
+      XSLoader::load Gimp $VERSION;
+   } or do {
+      require DynaLoader;
+      @ISA=qw(DynaLoader);
+      bootstrap Gimp $VERSION;
+   }
 }
 
 my @_param = qw(

plug-ins/perl/Gimp/Fu.pm

@@ -49,7 +49,7 @@ In general, a Gimp::Fu script looks like this:
 C<examples/example-fu.pl>, which is small Gimp::Fu-script you can take as
 starting point for your experiments)
 
-E<Attention:> at the moment it's neccessary to always import the C<Gimp::Fu>
+B<Attention:> at the moment it's neccessary to always import the C<Gimp::Fu>
 module after the C<Gimp> module.
 
 =cut

plug-ins/perl/Gimp/Lib.pm

@@ -2,11 +2,18 @@ package Gimp::Lib;
 
 use strict;
 use vars qw($VERSION @ISA);
-use base qw(DynaLoader);
 
-require DynaLoader;
-
-$VERSION = 1.18;
+BEGIN {
+   $VERSION = 1.18;
+   eval {
+      require XSLoader;
+      XSLoader::load Gimp::Lib $VERSION;
+   } or do {
+      require DynaLoader;
+      @ISA=qw(DynaLoader);
+      bootstrap Gimp::Lib $VERSION;
+   }
+}
 
 use subs qw(
 	gimp_call_procedure		gimp_main	gimp_init
@@ -32,8 +39,6 @@ sub unlock {
 
 sub import {}
 
-bootstrap Gimp::Lib $VERSION;
-
 # functions to "autobless" where the autobless mechanism
 # does not work.
 

plug-ins/perl/Makefile.PL

@@ -146,7 +146,7 @@ sub MY::install {
    my $self=shift;
    package MY;
    my $install = $self->SUPER::install(@_);
-   ($install =~ s/^(un)?install\b/really-$1install/gm) or return $install;
+   ($install =~ s/\b(un)?install\b/really-$1install/g) or return $install;
    '
 install :: install-po
 	@for dir in \

plug-ins/perl/UI/UI.pm

@@ -6,9 +6,15 @@ use Gtk;
 use base 'DynaLoader';
 
 BEGIN {
-   require DynaLoader;
    $VERSION = 1.18;
-   bootstrap Gimp::UI $VERSION;
+   eval {
+      require XSLoader;
+      XSLoader::load Gimp::UI $VERSION;
+   } or do {
+      require DynaLoader;
+      @ISA=qw(DynaLoader);
+      bootstrap Gimp::UI $VERSION;
+   }
 }
 
 =head1 NAME