diff options
| -rw-r--r-- | dist/Data-Dumper/t/bugs.t | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/dist/Data-Dumper/t/bugs.t b/dist/Data-Dumper/t/bugs.t index ceca4b9f94..b7b32fc5c8 100644 --- 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: { |