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
authorDave Mitchell <davem@fdisolutions.com>
Fri, 26 Mar 2004 18:53:09 +0000 (18:53 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Fri, 26 Mar 2004 18:53:09 +0000 (18:53 +0000)
find it!
p4raw-link: @22594 on //depot/perl: dfa41748806263fb8b5d5fcb051bd36be96fe93c

p4raw-id: //depot/perl@22596

t/comp/hints.t

index ce923cc..f00bb6a 100644 (file)
@@ -2,6 +2,12 @@
 
 # Tests the scoping of $^H and %^H
 
 
 # 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};
 BEGIN { print "1..15\n"; }
 BEGIN {
     print "not " if exists $^H{foo};