comparison lib/Test/Nginx.pm @ 1947:1d980c5013dc

Tests: improved version detection to accept alternative names.
author Maxim Dounin <mdounin@mdounin.ru>
date Thu, 15 Feb 2024 23:34:22 +0300
parents 07656d303199
children 5656138f2e46
comparison
equal deleted inserted replaced
1946:374722806924 1947:1d980c5013dc
304 my ($self, $need) = @_; 304 my ($self, $need) = @_;
305 305
306 $self->{_configure_args} = `$NGINX -V 2>&1` 306 $self->{_configure_args} = `$NGINX -V 2>&1`
307 if !defined $self->{_configure_args}; 307 if !defined $self->{_configure_args};
308 308
309 $self->{_configure_args} =~ m!nginx version: nginx/([0-9.]+)!; 309 $self->{_configure_args} =~ m!nginx version: \w+/([0-9.]+)!;
310 310
311 my @v = split(/\./, $1); 311 my @v = split(/\./, $1);
312 my ($n, $v); 312 my ($n, $v);
313 313
314 for $n (split(/\./, $need)) { 314 for $n (split(/\./, $need)) {