SYN SYN

[p5sagit/p5-mst-13.2.git] / t / lib / dprof.t

diff --git a/t/lib/dprof.t b/t/lib/dprof.t
index 97e42bf..10c9b0f 100755 (executable)
--- a/t/lib/dprof.t
+++ b/t/lib/dprof.t
@@ -2,12 +2,20 @@
 
 BEGIN {
     chdir( 't' ) if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bDevel\/DProf\b/){
+      print "1..0 # Skip: Devel::DProf was not built\n";
+      exit 0;
+    }
+}
+
+END {
+    unlink 'tmon.out', 'err';
 }
 
 use Benchmark qw( timediff timestr );
 use Getopt::Std 'getopts';
-use Config '%Config';
 getopts('vI:p:');
 
 # -v   Verbose
@@ -72,3 +80,5 @@ while( @tests ){
                verify $test;
        }
 }
+
+unlink("tmon.out");