diff options
| author | John Peacock <jpeacock@rowman.com> | 2004-04-13 16:51:31 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-14 07:26:04 +0000 |
| commit | 13f8f3987335c6eed94bd796ae4e7be8f788fdbf (patch) | |
| tree | 36257ab1ba4d78ddee06f5aafdecdccc2eb24c25 /t | |
| parent | 1928965c335b0bc2a3df245c2070b6e4b7bfad99 (diff) | |
| download | perl-13f8f3987335c6eed94bd796ae4e7be8f788fdbf.tar.gz | |
's to bring bleadperl up to version-0.39
Message-ID: <407C8B13.9020104@rowman.com>
p4raw-id: //depot/perl@22692
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/use.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/comp/use.t b/t/comp/use.t index dc3265be06..7bb1cbd6ff 100755 --- a/t/comp/use.t +++ b/t/comp/use.t @@ -111,7 +111,7 @@ print "ok ",$i++,"\n"; print "ok ",$i++,"\n"; eval "use lib v100.105"; - unless ($@ =~ /lib version 100.105 \(100\.105\.0\) required--this is only version 35.36 \(35\.360\.0\)/) { + unless ($@ =~ /lib version 100.105 \(100\.105\.0\) required--this is only version 35.360 \(35\.360\.0\)/) { 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 \(100\.105\.0\) required--this is only version 35.36 \(35\.360\.0\)/) { + unless ($@ =~ /lib version 100.105 \(100\.105\.0\) required--this is only version 35.360 \(35\.360\.0\)/) { print "not "; } print "ok ",$i++,"\n"; @@ -132,7 +132,7 @@ print "ok ",$i++,"\n"; print "ok ",$i++,"\n"; eval "use lib v100.105"; - unless ($@ =~ /lib version 100.105 \(100\.105\.0\) required--this is only version 35.36 \(35\.360\.0\)/) { + unless ($@ =~ /lib version 100.105 \(100\.105\.0\) required--this is only version 35.360 \(35\.360\.0\)/) { print "not "; } print "ok ",$i++,"\n"; @@ -142,7 +142,7 @@ print "ok ",$i++,"\n"; print "ok ",$i++,"\n"; eval "use lib 100.105"; - unless ($@ =~ /lib version 100.105 \(100\.105\.0\) required--this is only version 35.36 \(35\.360\.0\)/) { + unless ($@ =~ /lib version 100.105 \(100\.105\.0\) required--this is only version 35.360 \(35\.360\.0\)/) { print "not "; } print "ok ",$i++,"\n"; |