Upgrade to Devel::PPPort 3.08_02

[perl5.git] / ext / Devel / PPPort / t / uv.t

diff --git a/ext/Devel/PPPort/t/uv.t b/ext/Devel/PPPort/t/uv.t
index 1272be7..1d5ae2b 100644 (file)
--- a/ext/Devel/PPPort/t/uv.t
+++ b/ext/Devel/PPPort/t/uv.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);
   }
 }