This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip [perl #72332] DD test on 5.10.1
authorFather Chrysostomos <sprout@cpan.org>
Sat, 20 Nov 2010 04:23:07 +0000 (20:23 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 20 Nov 2010 04:23:58 +0000 (20:23 -0800)
$ perl5.10.1 -le 'print *{*STDERR{IO}}'
Bus error

That crash is beyond DD’s control, so the test should be skipped.

dist/Data-Dumper/t/bugs.t

index ceca4b9..b7b32fc 100644 (file)
@@ -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: {