X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDevel%2FPPPort%2Ft%2Fgrok.t;h=68af0e6735578e0dad9f09782b5a949c771484bb;hb=c07deaaf08ed19dc6900ffcd24cb585805441278;hp=8766b353d608d3f543f1e67de587c690b7c0f9ab;hpb=e638c62455531365fde53d9d25a44d20ac62f598;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Devel/PPPort/t/grok.t b/ext/Devel/PPPort/t/grok.t
index 8766b35..68af0e6 100644
--- a/ext/Devel/PPPort/t/grok.t
+++ b/ext/Devel/PPPort/t/grok.t
@@ -21,12 +21,13 @@ BEGIN {
     unshift @INC, 't';
   }
 
-  eval "use Test";
-  if ($@) {
-    require 'testutil.pl';
-    print "1..10\n";
+  sub load {
+    eval "use Test";
+    require 'testutil.pl' if $@;
   }
-  else {
+
+  if (10) {
+    load();
     plan(tests => 10);
   }
 }