This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix for change #22594; if using test.pl, must tell perl where to
[perl5.git] / t / comp / hints.t
index ce923cc..f00bb6a 100644 (file)
@@ -2,6 +2,12 @@
 
 # Tests the scoping of $^H and %^H
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = qw(. ../lib);
+}
+
+
 BEGIN { print "1..15\n"; }
 BEGIN {
     print "not " if exists $^H{foo};