Skip [perl #72332] DD test on 5.10.1

[perl5.git] / dist / Data-Dumper / t / bugs.t

diff --git a/dist/Data-Dumper/t/bugs.t b/dist/Data-Dumper/t/bugs.t
index ceca4b9..b7b32fc 100644 (file)
--- a/dist/Data-Dumper/t/bugs.t
+++ b/dist/Data-Dumper/t/bugs.t
@@ -80,10 +80,13 @@ sub doh
 doh('fixed');
 ok(1, "[perl #56766]"); # Still no core dump? We are fine.
 
-# [perl #72332] Segfault on empty-string glob
-Data::Dumper->Dump([*{*STDERR{IO}}]);
-ok("ok", #ok
+SKIP: {
+ skip "perl 5.10.1 crashes and DD cannot help it" if $] < 5.0119999;
+ # [perl #72332] Segfault on empty-string glob
+ Data::Dumper->Dump([*{*STDERR{IO}}]);
+ ok("ok", #ok
    "empty-string glob [perl #72332]");
+}
 
 # writing out of bounds with malformed utf8
 SKIP: {