fix a dumb error in Imager::Probe
authorTony Cook <tony@develop-help.com>
Thu, 6 Dec 2018 09:50:52 +0000 (20:50 +1100)
committerTony Cook <tony@develop-help.com>
Thu, 6 Dec 2018 09:50:52 +0000 (20:50 +1100)
and add tests for loading Imager::Probe to reduce the chance of the
same problem happening again

lib/Imager/Probe.pm
t/000-load.t

index 0bb3825..ac6d49b 100644 (file)
@@ -301,7 +301,7 @@ sub _probe_fake {
     # might not need extra libraries, eg. Win32 perl already links
     # everything
     my @libs = $req->{libbase}
-      ? ( ref $req->{libbase} ? @{$ref->{libbase}} : $ref->{libbase} )
+      ? ( ref $req->{libbase} ? @{$req->{libbase}} : $req->{libbase} )
       : ();
     $lopts = join " ", map _lib_option($_), @libs;
   }
index 883af43..9b0ee6c 100644 (file)
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 15;
+use Test::More;
 
 use_ok('Imager');
 use_ok('Imager::Font');
@@ -17,3 +17,6 @@ use_ok('Imager::Fountain');
 use_ok('Imager::Regops');
 use_ok('Imager::Test');
 use_ok('Imager::Transform');
+use_ok('Imager::Probe');
+
+done_testing();