use XSLoader without the fallback to DynaLoader
authorTony Cook <tony@develop-help.com>
Fri, 11 Jan 2013 00:07:59 +0000 (11:07 +1100)
committerTony Cook <tony@develop-help.com>
Fri, 11 Jan 2013 00:07:59 +0000 (11:07 +1100)
Makefile.PL
Screenshot.pm

index bb04e7c..e231dd6 100644 (file)
@@ -106,6 +106,7 @@ my %opts =
    PREREQ_PM => {
                 'Imager'    => 0.88,
                 'Imager::Probe' => 0,
+                'XSLoader'  => 0,
                },
    INC => "@inc",
    TYPEMAPS => [ Imager::ExtUtils->typemap ],
index 95f41bd..be05861 100644 (file)
@@ -11,16 +11,9 @@ BEGIN {
   require Exporter;
   @ISA = qw(Exporter);
   $VERSION = '0.012';
-  eval {
-    # try XSLoader first, DynaLoader has annoying baggage
-    require XSLoader;
-    XSLoader::load('Imager::Screenshot' => $VERSION);
-    1;
-  } or do {
-    require DynaLoader;
-    push @ISA, 'DynaLoader';
-    bootstrap Imager::Screenshot $VERSION;
-  }
+
+  require XSLoader;
+  XSLoader::load('Imager::Screenshot' => $VERSION);
 }
 
 sub screenshot {