& what's to be done for 5.8.0?

[perl5.git] / t / op / my_stash.t

diff --git a/t/op/my_stash.t b/t/op/my_stash.t
index ba266bf..1e93fc7 100644 (file)
--- a/t/op/my_stash.t
+++ b/t/op/my_stash.t
@@ -2,6 +2,11 @@
 
 package Foo;
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 use Test;
 
 plan tests => 7;
@@ -10,6 +15,7 @@ use constant MyClass => 'Foo::Bar::Biz::Baz';
 
 {
     package Foo::Bar::Biz::Baz;
+    1;
 }
 
 for (qw(Foo Foo:: MyClass __PACKAGE__)) {