diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-19 20:23:07 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-19 20:23:58 -0800 |
| commit | 3cea328dca910314153e2363d0d2b6f6c979a0c4 (patch) | |
| tree | 8ddc6a37fa35ee827af526840bd80fca8d17c85a /dist/Data-Dumper | |
| parent | d972eef1404a69ae5f386db007c8a1c5e5e2a9b6 (diff) | |
| download | perl-3cea328dca910314153e2363d0d2b6f6c979a0c4.tar.gz | |
Skip [perl #72332] DD test on 5.10.1
$ perl5.10.1 -le 'print *{*STDERR{IO}}'
Bus error
That crash is beyond DD’s control, so the test should be skipped.
Diffstat (limited to 'dist/Data-Dumper')
| -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: { |