Mercurial > hg > nginx-tests
comparison lib/Test/Nginx.pm @ 284:8fcc46212e5e
Tests: fix has_version() to handle previous branch checks.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sat, 11 May 2013 20:24:49 +0400 |
parents | 53068d38a3ce |
children | cbd4f6eca676 |
comparison
equal
deleted
inserted
replaced
283:36d24870ccb2 | 284:8fcc46212e5e |
---|---|
128 if !defined $self->{_configure_args}; | 128 if !defined $self->{_configure_args}; |
129 | 129 |
130 $self->{_configure_args} =~ m!nginx version: nginx/([0-9.]+)!; | 130 $self->{_configure_args} =~ m!nginx version: nginx/([0-9.]+)!; |
131 | 131 |
132 my @v = split(/\./, $1); | 132 my @v = split(/\./, $1); |
133 my $n; | 133 my ($n, $v); |
134 | 134 |
135 for $n (split(/\./, $need)) { | 135 for $n (split(/\./, $need)) { |
136 return 0 if $n > (shift @v || 0); | 136 $v = shift @v || 0; |
137 return 0 if $n > $v; | |
138 return 1 if $v > $n; | |
137 } | 139 } |
138 | 140 |
139 return 1; | 141 return 1; |
140 } | 142 } |
141 | 143 |