This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip test if Devel::PPPort not built
authorNicholas Clark <nick@ccl4.org>
Fri, 18 Jun 2004 13:09:24 +0000 (13:09 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 18 Jun 2004 13:09:24 +0000 (13:09 +0000)
p4raw-id: //depot/perl@22953

ext/Devel/PPPort/t/test.t

index de9cc88..469bd87 100644 (file)
@@ -1,6 +1,11 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib' if -d '../lib';
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bDevel::PPPort\b/) ){
+        print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
+        exit 0;
+    }
 }
 
 use Devel::PPPort;