Return to pkg-config CVS log | Up to [local] / src / usr.bin / pkg-config |
version 1.27, 2010/12/28 14:31:38 | version 1.28, 2011/03/07 22:21:50 | ||
---|---|---|---|
|
|
||
{ | { | ||
my ($a, $b) = @_; | my ($a, $b) = @_; | ||
if ($a eq $b) { | return 0 if ($a eq $b); | ||
return 0; | |||
} | |||
my @a = split /\./, $a; | my @a = split /\./, $a; | ||
my @b = split /\./, $b; | my @b = split /\./, $b; | ||
|
|
||
my $value = compare($inst, $want); | my $value = compare($inst, $want); | ||
if ($op eq '>=') { | if ($op eq '>=') { | ||
return $value >= 0; | return $value >= 0; | ||
} | } elsif ($op eq '=') { | ||
elsif ($op eq '=') { | |||
return $value == 0; | return $value == 0; | ||
} elsif ($op eq '!=') { | } elsif ($op eq '!=') { | ||
return $value != 0; | return $value != 0; |