Upgrade to Devel::PPPort 3.08_02

[p5sagit/p5-mst-13.2.git] / ext / Devel / PPPort / t / misc.t

diff --git a/ext/Devel/PPPort/t/misc.t b/ext/Devel/PPPort/t/misc.t
index 711b547..6171ef2 100644 (file)
--- a/ext/Devel/PPPort/t/misc.t
+++ b/ext/Devel/PPPort/t/misc.t
@@ -21,12 +21,13 @@ BEGIN {
     unshift @INC, 't';
   }
 
-  eval "use Test";
-  if ($@) {
-    require 'testutil.pl';
-    print "1..42\n";
+  sub load {
+    eval "use Test";
+    require 'testutil.pl' if $@;
   }
-  else {
+
+  if (42) {
+    load();
     plan(tests => 42);
   }
 }