From: Dan Book <grinnz@grinnz.com>
Date: Mon, 9 Nov 2015 23:41:54 +0000 (-0500)
Subject: skip large attribute test on 5.8; set minimum to 5.8.9 for reduce issue
X-Git-Tag: v0.002~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FDOM-Tiny.git;a=commitdiff_plain;h=0139fdcfca07b36346c663c07013bed6640e275c

skip large attribute test on 5.8; set minimum to 5.8.9 for reduce issue
---

diff --git a/META.json b/META.json
index 30b084c..7aac77e 100644
--- a/META.json
+++ b/META.json
@@ -47,7 +47,7 @@
             "Exporter" : "0",
             "List::Util" : "0",
             "Scalar::Util" : "0",
-            "perl" : "5.008001"
+            "perl" : "5.008009"
          }
       },
       "test" : {
diff --git a/Makefile.PL b/Makefile.PL
index 4df3382..5ac628c 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use 5.008001;
+use 5.008009;
 
 use ExtUtils::MakeMaker;
 
@@ -14,7 +14,7 @@ my %WriteMakefileArgs = (
   },
   "DISTNAME" => "DOM-Tiny",
   "LICENSE" => "artistic_2",
-  "MIN_PERL_VERSION" => "5.008001",
+  "MIN_PERL_VERSION" => "5.008009",
   "NAME" => "DOM::Tiny",
   "PREREQ_PM" => {
     "Carp" => 0,
diff --git a/cpanfile b/cpanfile
index 581cd98..1c8a128 100644
--- a/cpanfile
+++ b/cpanfile
@@ -1,4 +1,4 @@
-requires 'perl' => '5.008001';
+requires 'perl' => '5.008009';
 requires 'Carp';
 requires 'Exporter';
 requires 'List::Util';
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);