Skip tests if Devel::Peek not built

[p5sagit/p5-mst-13.2.git] / ext / threads / t / end.t

diff --git a/ext/threads/t/end.t b/ext/threads/t/end.t
index 19cd704..351a989 100644 (file)
--- a/ext/threads/t/end.t
+++ b/ext/threads/t/end.t
@@ -10,6 +10,10 @@ BEGIN {
         print "1..0 # Skip: no useithreads\n";
         exit 0;
     }
+    if ($Config{'extensions'} !~ /\bDevel\/Peek\b/) {
+       print "1..0 # Skip: Devel::Peek was not built\n";
+       exit 0;
+    }
 }
 
 use ExtUtils::testlib;