diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-06 13:21:34 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-06 13:21:34 +0000 |
| commit | 8c5f6936e7c6250712b0f630deac0c445eaf4dff (patch) | |
| tree | 9b9514dbe5f70f29439a571289690c99996631ee /t/comp/use.t | |
| parent | c5917253cfa0ec36b4c868a1582baaaab99eb0d0 (diff) | |
| download | perl-8c5f6936e7c6250712b0f630deac0c445eaf4dff.tar.gz | |
Bump version number to 5.10.0.
p4raw-id: //depot/perl@31799
Diffstat (limited to 't/comp/use.t')
| -rwxr-xr-x | t/comp/use.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/comp/use.t b/t/comp/use.t index e66c4a39b5..41f3bde764 100755 --- a/t/comp/use.t +++ b/t/comp/use.t @@ -195,6 +195,11 @@ foreach my $index (-3..+3) { if ($index < 0) { # Jiggle one of the parts down --$parts[-$index - 1]; + if ($parts[-$index - 1] < 0) { + # perl's version number ends with '.0' + $parts[-$index - 1] = 0; + $parts[-$index - 2] -= 2; + } } else { # Jiggle one of the parts up ++$parts[$index - 1]; |