X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=xt%2Fextra%2Ftaint.t;fp=xt%2Fextra%2Ftaint.t;h=93190c32fde35eae9a156a59b755b356654fe581;hp=e8c6af19a5a150b2431b4cd6e86dfce85d67b014;hb=8aae794001ecccdb26c2bbd1b92c97bba9e65d79;hpb=89d5e36fd191c1e303f91f15cd8c7c3d55fe6715

diff --git a/xt/extra/taint.t b/xt/extra/taint.t
index e8c6af1..93190c3 100644
--- a/xt/extra/taint.t
+++ b/xt/extra/taint.t
@@ -20,7 +20,7 @@ use warnings;
 
 # there is talk of possible perl compilations where -T is fatal or just
 # doesn't work. We don't want to have the user deal with that.
-BEGIN { unless ($INC{'t/lib/DBICTest/WithTaint.pm'}) {
+BEGIN { unless ($INC{'DBICTest/WithTaint.pm'}) {
 
   if ( $^O eq 'MSWin32' and $^X =~ /\x20/ ) {
     print "1..0 # SKIP Running this test on Windows with spaces within the perl executable path (\$^X) is not possible due to https://rt.perl.org/Ticket/Display.html?id=123907\n";
@@ -56,7 +56,7 @@ BEGIN { unless ($INC{'t/lib/DBICTest/WithTaint.pm'}) {
     exit 0;
   }
 
-  exec( $perl, qw( -I. -Mt::lib::DBICTest::WithTaint -T ), __FILE__ );
+  exec( $perl, qw( -It/lib -MDBICTest::WithTaint -T ), __FILE__ );
 }}
 
 # We need to specify 'lib' here as well because even if it was already in