From 5f0285c1ffeae0223edccbb85b1358fb0fd48485 Mon Sep 17 00:00:00 2001 From: Duke Leto Date: Tue, 10 Mar 2009 18:49:48 -0400 Subject: [PATCH] Fix occasional warning in ok_status() --- lib/Math/GSL/Test.pm | 5 ++--- t/Monte.t | 1 + 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Math/GSL/Test.pm b/lib/Math/GSL/Test.pm index b7a2e31..922d2c3 100644 --- a/lib/Math/GSL/Test.pm +++ b/lib/Math/GSL/Test.pm @@ -201,10 +201,9 @@ sub ok_status { my ($got, $expected, $msg ) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1; $expected ||= $GSL_SUCCESS; - my $strerr = gsl_strerror(int($got)); - $msg = $msg ? "$msg: " . $strerr : $strerr; + my $strerr = $got ? gsl_strerror(int($got)) : ''; - ok( defined $got && $got == $expected, $msg ); + ok( defined $got && $got == $expected, $msg ? "$msg: " .$strerr : $strerr ); } =head2 is_status_ok($status) diff --git a/t/Monte.t b/t/Monte.t index 7b3b220..b7e9b69 100644 --- a/t/Monte.t +++ b/t/Monte.t @@ -5,6 +5,7 @@ use Math::GSL::Monte qw/:all/; use Math::GSL::Errno qw/:all/; use Math::GSL::RNG qw/:all/; use Math::GSL::Test qw/:all/; +use Data::Dumper; use strict; BEGIN { gsl_set_error_handler_off() } -- 2.11.4.GIT