X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FDOM-Tiny.git;a=blobdiff_plain;f=t%2Fdom.t;h=31ccd14661cc149e216a22321581fea71922b8a2;hp=ee3fe5f9b2bdd7849a38a1b33ae24eed7b4fd652;hb=0139fdcfca07b36346c663c07013bed6640e275c;hpb=28d939996250b69ba0df011f8d2c2c9a551a84e4

diff --git a/t/dom.t b/t/dom.t
index ee3fe5f..31ccd14 100644
--- a/t/dom.t
+++ b/t/dom.t
@@ -2492,9 +2492,12 @@ is $dom->tree->[3][1], ' bad idea -- HTML5 ', 'right comment';
 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);