From a1f36d716f35a9a394630adda09667dd337ddaca Mon Sep 17 00:00:00 2001
From: Graham Ollis <plicease@cpan.org>
Date: Fri, 21 Mar 2014 14:57:50 -0400
Subject: [PATCH] update diagnostic

---
 t/00_diag.pre.txt |  1 +
 t/00_diag.t       | 24 +++++++++++++++++-------
 2 files changed, 18 insertions(+), 7 deletions(-)
 create mode 100644 t/00_diag.pre.txt

diff --git a/t/00_diag.pre.txt b/t/00_diag.pre.txt
new file mode 100644
index 0000000..cb19574
--- /dev/null
+++ b/t/00_diag.pre.txt
@@ -0,0 +1 @@
+EV
diff --git a/t/00_diag.t b/t/00_diag.t
index 7bc41a5..95a9745 100644
--- a/t/00_diag.t
+++ b/t/00_diag.t
@@ -1,12 +1,22 @@
 use strict;
 use warnings;
 use Test::More tests => 1;
-BEGIN { eval q{ use EV } }
-eval q{ 
-  use FindBin ();
-  use File::Spec;
-  1;
-} || die $@;
+BEGIN {
+  my @modules;
+  eval q{
+    require FindBin;
+    require File::Spec;
+    1;
+  } || die $@;
+  do {
+    my $fh;
+    open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt'));
+    @modules = <$fh>;
+    close $fh;
+    chomp @modules;
+  };
+  eval qq{ require $_ } for @modules;
+};
 
 pass 'okay';
 
@@ -34,7 +44,7 @@ require(File::Spec->catfile($FindBin::Bin, '00_diag.pl'))
 
 foreach my $module (@modules)
 {
-  if(eval qq{ use $module; 1 })
+  if(eval qq{ require $module; 1 })
   {
     my $ver = eval qq{ \$$module\::VERSION };
     $ver = 'undef' unless defined $ver;