From d39e7aca34f534182cb5b70955d86dbc1bcfc610 Mon Sep 17 00:00:00 2001 From: Tony Cook Date: Thu, 6 Dec 2018 20:50:52 +1100 Subject: [PATCH] fix a dumb error in Imager::Probe and add tests for loading Imager::Probe to reduce the chance of the same problem happening again --- lib/Imager/Probe.pm | 2 +- t/000-load.t | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/Imager/Probe.pm b/lib/Imager/Probe.pm index 0bb38256..ac6d49be 100644 --- 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 883af437..9b0ee6ca 100644 --- 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(); -- 2.39.5