use warnings;
use strict;
-my @lib32_pkgs = `pacman -Sl lib32-testing lib32`;
+my @lib32_pkgs = `pacman -Sl testing lib32`;
my %lib32;
foreach (@lib32_pkgs) {
my $pkgname = $lib32_pkgname;
$pkgname =~ s/lib32-//;
- my $pkg = `pacman -Ss "^$pkgname\$" | grep -v '^ ' | head -n1`;
+ my $pkg = `pacman -Ss '^$pkgname\$' | grep "/$pkgname " | head -n1`;
chomp $pkg;
- next if ( $pkg !~ /(?<repo>.+)\/(?<pkgname>.+) (?<pkgver>.+)-(?<pkgrel>\d+)/ );
+ next if ( $pkg !~ /(?<repo>.+)\/(?<pkgname>\S+) (?<pkgver>.+)-(?<pkgrel>\d+)/ );
my $repo = $+{repo};
my $pkgver = $+{pkgver};
my $pkgrel = $+{pkgrel};
- if ("$lib32_pkgver-$lib32_pkgrel" lt "$pkgver-$pkgrel") {
+ if ("$lib32_pkgver" lt "$pkgver") {
print "$lib32_repo/$lib32_pkgname is older than $repo/$pkgname\n";
}
}