testing/rpm
SHA256
3
0
Fork 0
forked from pool/rpm
Code Pull Requests Activity

Accepting request 69563 from home:michal-m:branches:Base:System

Browse Source 
- rpmsort
  + Fix comparison function to match rpm (bnc#644515, thanks to
    Michael Schroeder).
  + Add --test option to verify result against zypper vcmp.

OBS-URL: https://build.opensuse.org/request/show/69563
OBS-URL: https://build.opensuse.org/package/show/Base:System/rpm?expand=0&rev=91
This commit is contained in:
Dirk Mueller 2011-05-04 22:04:44 +00:00 committed by Git OBS Bridge
parent d2dd23de3c
commit 5803348983
2 changed files with 39 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rpm.changes
View File

@ -1,3 +1,11 @@
-------------------------------------------------------------------
Wed May 4 12:42:33 UTC 2011 - mmarek@novell.com
- rpmsort
+ Fix comparison function to match rpm (bnc#644515, thanks to
Michael Schroeder).
+ Add --test option to verify result against zypper vcmp.
------------------------------------------------------------------- -------------------------------------------------------------------
Sat Feb 19 12:39:31 CET 2011 - vuntz@opensuse.org Sat Feb 19 12:39:31 CET 2011 - vuntz@opensuse.org

36
rpmsort
View File

@ -17,7 +17,7 @@
use Getopt::Long qw(:config gnu_getopt); use Getopt::Long qw(:config gnu_getopt);
sub rpm_cmp_versions { sub do_rpm_cmp_versions {
my ($evr1, $evr2) = @_; my ($evr1, $evr2) = @_;
sub _rpm_cmp { sub _rpm_cmp {
@ -31,8 +31,10 @@ sub rpm_cmp_versions {
$s1 =~ s/^[^a-zA-Z0-9]+//; $s1 =~ s/^[^a-zA-Z0-9]+//;
$s2 =~ s/^[^a-zA-Z0-9]+//; $s2 =~ s/^[^a-zA-Z0-9]+//;
if ($s1 =~ /^\d/ || $s2 =~ /^\d/) { if ($s1 =~ /^\d/ || $s2 =~ /^\d/) {
$s1 =~ s/^0*(\d*)//; $x1 = $1; $s1 =~ s/^(0*(\d*))//; $x1 = $2;
$s2 =~ s/^0*(\d*)//; $x2 = $1; return -1 if $1 eq '';
$s2 =~ s/^(0*(\d*))//; $x2 = $2;
return 1 if $1 eq '';
$r = length $x1 <=> length $x2 || $x1 cmp $x2; $r = length $x1 <=> length $x2 || $x1 cmp $x2;
} else { } else {
$s1 =~ s/^([a-zA-Z]*)//; $x1 = $1; $s1 =~ s/^([a-zA-Z]*)//; $x1 = $1;
@ -57,11 +59,35 @@ sub rpm_cmp_versions {
my $reorder = sub { return @_ }; my $reorder = sub { return @_ };
my $key = 0; my $key = 0;
my $test = 0;
sub rpm_cmp_versions {
my ($evr1, $evr2) = @_;
chomp($evr1, $evr2);
my $res1 = do_rpm_cmp_versions($evr1, $evr2);
if ($test) {
open(my $fd, '-|', 'zypper', '--terse', 'versioncmp',
$evr1, $evr2) or die "zypper: $!\n";
my $res2 = <$fd>;
close($fd) or die "zypper: $!\n";
chomp $res2;
if ($res1 != $res2) {
my @operators = qw(< == >);
my $op1 = $operators[$res1 + 1];
my $op2 = $operators[$res2 + 1];
print STDERR "BUG: $evr1 $op1 $evr2 vs. zypper: $evr1 $op2 $evr2\n";
}
}
return $res1;
}
GetOptions ("r|reverse" => sub { $reorder = sub { return reverse @_ } }, GetOptions ("r|reverse" => sub { $reorder = sub { return reverse @_ } },
"k|key=i" => \$key) "k|key=i" => \$key,
"test" => \$test)
or do { or do {
print STDERR "Usage\n"; print STDERR "Usage $0 [-r, --reverse] [-k N, --key=N] [--test]\n";
exit 1; exit 1;
}; };