diff options
| author | John Peacock <jpeacock@rowman.com> | 2004-02-01 16:10:07 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-03 20:33:02 +0000 |
| commit | 137d6fc09ef3595c225f4474cf527a89e2099776 (patch) | |
| tree | b64819d95aa36ef24ee9797d3d45e6f54caed400 /t/comp | |
| parent | 59f00321bbc2d04656a65e0e9ccbbd93a8708e71 (diff) | |
| download | perl-137d6fc09ef3595c225f4474cf527a89e2099776.tar.gz | |
was Re: [Fwd: CPAN Upload: J/JP/JPEACOCK/version-0.36.tar.gz]
Message-ID: <401DB17F.5060808@rowman.com>
p4raw-id: //depot/perl@22264
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/use.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/comp/use.t b/t/comp/use.t index fa4dc18199..0e3c22df72 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 required--this is only version 35\.3/) { + unless ($@ =~ /lib version 100\.105\.0 required--this is only version 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 required--this is only version 35\.3/) { + unless ($@ =~ /lib version 100\.105\.0 required--this is only version 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 required--this is only version 35\.36/) { + unless ($@ =~ /lib version 100\.105\.0 required--this is only version 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 required--this is only version 35\.36/) { + unless ($@ =~ /lib version 100\.105\.0 required--this is only version 35\.360\.0/) { 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 100\.105 required--this is only version 35\.36/) { + unless ($@ =~ /lib version 100\.105\.0 required--this is only version 35\.36\.0/) { print "not "; } print "ok ",$i++,"\n"; @@ -163,7 +163,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\.0 required--this is only version 35\.36\.0/) { print "not "; } print "ok ",$i++,"\n"; |