X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F54taint.t;h=2a37ed5c7b62106fd99a76a1062506f3998dcf56;hb=689e22d1;hp=3ab675ffbd59545a6441513bdf6597efa21e807a;hpb=9f72d93abcf470e73b310c24d8ce09f8a814b7e5;p=dbsrgits%2FDBIx-Class.git diff --git a/t/54taint.t b/t/54taint.t index 3ab675f..2a37ed5 100644 --- a/t/54taint.t +++ b/t/54taint.t @@ -17,9 +17,18 @@ BEGIN { } } +# We need to specify 'lib' here as well because even if it was already in +# @INC, the above will have put our local::lib in front of it, so now an +# installed DBIx::Class will take precedence over the one we're trying to test. +# In some cases, prove will have supplied ./lib as an absolute path so it +# doesn't seem worth trying to remove the second copy since it won't hurt +# anything. +use lib qw(lib); +use lib qw(t/lib); + use Test::More; use Test::Exception; -use lib qw(t/lib); +use DBICTest; throws_ok ( sub { $ENV{PATH} . (kill (0)) },