(Retracted by #8264) More join() testing which was good because
[p5sagit/p5-mst-13.2.git] / t / comp / use.t
index 89cb31a..fb59777 100755 (executable)
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
 }
 
 print "1..27\n";
@@ -153,7 +153,7 @@ print "ok ",$i++,"\n";
     print "ok ",$i++,"\n";
 
     eval "use lib v100.105";
-    unless ($@ =~ /lib version v100\.105 required--this is only version v35\.36/) {
+    unless ($@ =~ /lib v100\.105 required--this is only v35\.36/) {
        print "not ";
     }
     print "ok ",$i++,"\n";