Fix test borkage after 9b871b00c - ALWAYS RUN TESTS RETARDO!

[dbsrgits/DBIx-Class.git] / t / admin / 10script.t

diff --git a/t/admin/10script.t b/t/admin/10script.t
index 575e3a6..8572ca1 100644 (file)
--- a/t/admin/10script.t
+++ b/t/admin/10script.t
@@ -69,7 +69,7 @@ sub test_dbicadmin {
 
         my ($perl) = $^X =~ /(.*)/;
 
-        open(my $fh, "-|",  ( $perl, 'script/dbicadmin', default_args(), qw|--op=select --attrs={"order_by":"name"}| ) ) or die $!;
+        open(my $fh, "-|",  ( $perl, '-MDBICTest::RunMode', 'script/dbicadmin', default_args(), qw|--op=select --attrs={"order_by":"name"}| ) ) or die $!;
         my $data = do { local $/; <$fh> };
         close($fh);
         if (!ok( ($data=~/Aran.*Trout/s), "$ENV{JSON_ANY_ORDER}: select with attrs" )) {
@@ -108,5 +108,5 @@ sub test_exec {
     }
   }
 
-  system ($perl, @args);
+  system ($perl, '-MDBICTest::RunMode', @args);
 }