X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcomp%2Fuse.t;h=fb597770d0a8da4db3431c1917b6d62820e38257;hb=880b20b67e23950959b9017ea50a2f9fe4e915a4;hp=c3cdb70709b6c3b700422893495d0cada372386f;hpb=1571675a79745e7e3690e10ecdcf919c638d572b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/comp/use.t b/t/comp/use.t
index c3cdb70..fb59777 100755
--- a/t/comp/use.t
+++ b/t/comp/use.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
 }
 
 print "1..27\n";
@@ -111,7 +111,7 @@ print "ok ",$i++,"\n";
     print "ok ",$i++,"\n";
 
     eval "use lib v100.105";
-    unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) {
+    unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) {
 	print "not ";
     }
     print "ok ",$i++,"\n";
@@ -121,7 +121,7 @@ print "ok ",$i++,"\n";
     print "ok ",$i++,"\n";
 
     eval "use lib 100.105";
-    unless ($@ =~ /lib version 100\.105 required--this is only version 35\.36/) {
+    unless ($@ =~ /lib version 100\.105 required--this is only version 35\.3/) {
 	print "not ";
     }
     print "ok ",$i++,"\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";