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 (executable)
--- 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