fix a dumb error in Imager::Probe

and add tests for loading Imager::Probe to reduce the chance of the
same problem happening again

diff --git a/lib/Imager/Probe.pm b/lib/Imager/Probe.pm
index 0bb3825637f76faca17b6e3345dfb8af6d3172c7..ac6d49bee37f5df53690539474071a728afdef0a 100644 (file)
--- a/lib/Imager/Probe.pm
+++ b/lib/Imager/Probe.pm
@@ -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;
   }

diff --git a/t/000-load.t b/t/000-load.t
index 883af4371de116f5b3dba79ea25362c5cb31d702..9b0ee6ca6b4d3e3d794e316788936aeeed78044c 100644 (file)
--- a/t/000-load.t
+++ b/t/000-load.t
@@ -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();