X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F13-padsv.t;h=ae3cbff3ecd485290b54d3504347376803dac7a5;hp=5e5cc3d32d49f8e00c6732ed6fa18630131c91e6;hb=311cc872692b73075296805143f6a2d8c4074254;hpb=f04f835b21c960f5a1021bccdd8b5a400159433a

diff --git a/t/13-padsv.t b/t/13-padsv.t
index 5e5cc3d..ae3cbff 100644
--- a/t/13-padsv.t
+++ b/t/13-padsv.t
@@ -3,6 +3,8 @@
 use strict;
 use warnings;
 
+use Config qw/%Config/;
+
 use Test::More tests => 4;
 
 sub Str::TYPEDSCALAR {
@@ -30,7 +32,10 @@ my @lines;
 
 sub Int::TYPEDSCALAR { push @lines, (caller(0))[2]; () }
 
-{
+SKIP: {
+ skip 'Broken with threaded perls before 5.8.4' => 1
+                                      if $Config{useithreads} and $] < 5.008004;
+
  use Lexical::Types as => sub {
   # In 5.10, this closure is compiled before hints are enabled, so no hintseval
   # op is added at compile time to propagate the hints inside the eval.