see plug-ins/perl/Changes

1999-12-13 02:39:22 +00:00
parent ea5b4a1f62
commit cb5c8dfccd
6 changed files with 30 additions and 13 deletions
--- a/plug-ins/perl/Gimp.pm
+++ b/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(