remove extraneous strictures import in test

[p5sagit/strictures.git] / t / extras.t

diff --git a/t/extras.t b/t/extras.t
index cef6a6c..474ad38 100644 (file)
--- a/t/extras.t
+++ b/t/extras.t
@@ -90,16 +90,17 @@ use strictures;
 
   {
     open my $fh, '>', \(my $str = '');
+    my $e;
     {
       local *STDERR = $fh;
       eval qq{
 #line 1 "t/load_fail.t"
 use strictures;
 1;
-      } or die "$@";
+      } or $e = "$@";
     }
+    die $e if defined $e;
 
-    strictures->import;
     like(
       $str,
       qr/Missing were:\n\n  indirect multidimensional bareword::filehandles/,
@@ -109,14 +110,16 @@ use strictures;
 
   {
     open my $fh, '>', \(my $str = '');
+    my $e;
     {
       local *STDERR = $fh;
       eval qq{
 #line 1 "t/load_fail.t"
 use strictures;
 1;
-      } or die "$@";
+      } or $e = "$@";
     }
+    die $e if defined $e;
 
     is $str, '', "extra dep load failure is not reported a second time";
   }