mirror of
https://github.com/openresty/openresty.git
synced 2024-10-13 00:29:41 +00:00
added patches for nginx 1.3.4.
This commit is contained in:
41
util/ver-ge
Executable file
41
util/ver-ge
Executable file
@ -0,0 +1,41 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub usage {
|
||||
die "Usage: $0 <ver1> <ver2>\n";
|
||||
}
|
||||
|
||||
my $a = shift or usage();
|
||||
my $b = shift or usage();
|
||||
|
||||
my @as = split /\./, $a;
|
||||
my @bs = split /\./, $b;
|
||||
|
||||
my $n = @as > @bs ? scalar(@as) : scalar(@bs);
|
||||
|
||||
for (my $i = 0; $i < $n; $i++) {
|
||||
my $x = $as[$i];
|
||||
my $y = $bs[$i];
|
||||
|
||||
if (!defined $x) {
|
||||
$x = 0;
|
||||
}
|
||||
|
||||
if (!defined $y) {
|
||||
$y = 0;
|
||||
}
|
||||
|
||||
if ($x > $y) {
|
||||
print "Y\n";
|
||||
exit;
|
||||
|
||||
} elsif ($x < $y) {
|
||||
print "N\n";
|
||||
exit;
|
||||
}
|
||||
}
|
||||
|
||||
print "Y\n";
|
||||
|
Reference in New Issue
Block a user