From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Mon, 30 Aug 2004 18:33:27 +0000 (+0000)
Subject: Skip a Data::Dumper test if configured without B module.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4543415b4bf727b6d2b807b141805b40a67913b8;p=p5sagit%2Fp5-mst-13.2.git

Skip a Data::Dumper test if configured without B module.

p4raw-id: //depot/perl@23244
---

diff --git a/ext/Data/Dumper/t/dumper.t b/ext/Data/Dumper/t/dumper.t
index 340a539..35b97b2 100755
--- a/ext/Data/Dumper/t/dumper.t
+++ b/ext/Data/Dumper/t/dumper.t
@@ -965,7 +965,11 @@ TEST q(Data::Dumper->new([[$c, $d]])->Dumpxs;)
 #        };
 EOT
 
-  TEST q(Data::Dumper->new([{ foo => sub { print "foo"; } }])->Dump);
+  if(" $Config{'extensions'} " !~ m[ B ]) {
+    SKIP_TEST "Perl configured without B module";
+  } else {
+    TEST q(Data::Dumper->new([{ foo => sub { print "foo"; } }])->Dump);
+  }
 }
 
 ############# 214