use strict;
use warnings;
-use 5.008001;
+use 5.008009;
use ExtUtils::MakeMaker;
},
"DISTNAME" => "DOM-Tiny",
"LICENSE" => "artistic_2",
- "MIN_PERL_VERSION" => "5.008001",
+ "MIN_PERL_VERSION" => "5.008009",
"NAME" => "DOM::Tiny",
"PREREQ_PM" => {
"Carp" => 0,
is $dom->tree->[5][1], ' HTML4 ', 'right comment';
is $dom->tree->[7][1], ' bad idea -- HTML4 ', 'right comment';
-# Huge number of attributes
-$dom = DOM::Tiny->new('<div ' . ('a=b ' x 32768) . '>Test</div>');
-is $dom->at('div[a=b]')->text, 'Test', 'right text';
+SKIP: {
+ skip 'Regex subexpression recursion causes SIGSEGV on 5.8', 1 if $] < 5.010000;
+ # Huge number of attributes
+ $dom = DOM::Tiny->new('<div ' . ('a=b ' x 32768) . '>Test</div>');
+ is $dom->at('div[a=b]')->text, 'Test', 'right text';
+}
# Huge number of nested tags
my $huge = ('<a>' x 100) . 'works' . ('</a>' x 100);