X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FAttribute%2FHandlers%2Ft%2Fmulti.t;h=a8156c2550172673460b0d8f3d7cb2c4abe317a0;hb=cab6c672e9819e2fc0a67e60c3b18ff6c0385dac;hp=db00b1c933242fef3009495d351ffeddd477d776;hpb=4bd7b839c96352aa075f714f4c1aaa963c29018e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Attribute/Handlers/t/multi.t b/lib/Attribute/Handlers/t/multi.t
index db00b1c..a8156c2 100644
--- a/lib/Attribute/Handlers/t/multi.t
+++ b/lib/Attribute/Handlers/t/multi.t
@@ -1,3 +1,12 @@
+#!perl
+
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+    }
+}
+
 END {print "not ok 1\n" unless $loaded;}
 use v5.6.0;
 use Attribute::Handlers;