X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fautovivification.git;a=blobdiff_plain;f=t%2F43-peep.t;h=2499656584a67793510fc50bd8b8ea0a502156be;hp=88d2afd7082c8d77ddb33e4b7ebb21570b6b1512;hb=e2cf50a4ad234e0ab9844ac0cb45f2a363abe217;hpb=7839df4d069fb2962a189f08bf7c92ff63d261fa

diff --git a/t/43-peep.t b/t/43-peep.t
index 88d2afd..2499656 100644
--- a/t/43-peep.t
+++ b/t/43-peep.t
@@ -6,7 +6,7 @@ use warnings;
 use Test::More;
 
 use lib 't/lib';
-use VPIT::TestHelpers;
+use VPIT::TestHelpers 'run_perl';
 
 plan tests => 11 + 5 * 2 + 5 * 3;
 
@@ -159,10 +159,13 @@ plan tests => 11 + 5 * 2 + 5 * 3;
  for my $desc (keys %infinite_tests) {
   my $code = $infinite_tests{$desc};
   my $ret  = run_perl $code;
-  my $stat = $ret & 255;
-  $ret   >>= 8;
-  is $stat, 0, "$desc testcase did not crash";
-  is $ret,  1, "$desc compiled fine";
+  SKIP: {
+   skip RUN_PERL_FAILED() => 2 unless defined $ret;
+   my $stat = $ret & 255;
+   $ret   >>= 8;
+   is $stat, 0, "$desc testcase did not crash";
+   is $ret,  1, "$desc compiled fine";
+  }
  }
 }