X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDB.t;h=a1fadf331a80c7a07a5cceaf8457ce04b12e398b;hb=752ce16633029b870704ea72df1c7040865414d7;hp=e6fef9b887ec8387c79b20b1e00abea3802bab3f;hpb=4940c44306f1533e993cbca6152c66067eca02ca;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/DB.t b/lib/DB.t
index e6fef9b..a1fadf3 100644
--- a/lib/DB.t
+++ b/lib/DB.t
@@ -3,6 +3,11 @@
 BEGIN {
         chdir 't' if -d 't';
         @INC = '../lib';
+	require Config;
+	if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
+		print "1..0 # Skip -- Perl configured without List::Util module\n";
+		exit 0;
+	}
 }
 
 # symbolic references used later
@@ -81,7 +86,7 @@ BEGIN {
 # test DB::_clientname()
 is( DB::_clientname('foo=A(1)'), 'foo',
     'DB::_clientname should return refname');
-cmp_ok( DB::_clientname('bar'), 'eq', '',
+is( DB::_clientname('bar'), undef,
         'DB::_clientname should not return non refname');
 
 # test DB::next() and DB::step()