parser panics on lvalue methods

[p5sagit/p5-mst-13.2.git] / t / op / flip.t

diff --git a/t/op/flip.t b/t/op/flip.t
index f66af27..d9fa736 100755 (executable)
--- a/t/op/flip.t
+++ b/t/op/flip.t
@@ -2,6 +2,8 @@
 
 # $RCSfile: flip.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:52 $
 
+chdir 't' if -d 't';
+
 print "1..10\n";
 
 @a = (1,2,3,4,5,6,7,8,9,10,11,12);
@@ -17,7 +19,7 @@ if ($y eq '12E0123E0') {print "ok 7\n";} else {print "not ok 7\n";}
 
 @a = ('a','b','c','d','e','f','g');
 
-open(of,'../Configure');
+open(of,'harness') or die "Can't open harness: $!";
 while (<of>) {
     (3 .. 5) && ($foo .= $_);
 }