|
|
@@ -1123,14 +1123,16 @@ sub binary_target ($$) {
|
|
|
|
|
|
sub find_proxy ($$) {
|
|
|
my($t,$bpkg) = @_;
|
|
|
- my(@l) = `$RPM_NPRIV -ql sudo`;
|
|
|
+ print STDERR "FUCK: ".$t->{name}."\n";
|
|
|
+ my(@l) = `$RPM_NPRIV -ql $t->{name}`;
|
|
|
my($link) = (grep { $_ =~ /\/\.prefix-$t->{name}$/ } @l)[0];
|
|
|
return unless defined $link;
|
|
|
chomp $link;
|
|
|
my($prefix) = readlink($link);
|
|
|
return unless defined $prefix;
|
|
|
$bpkg =~ s/.*\///;
|
|
|
- return "$prefix/RPM/PKG/$bpkg";
|
|
|
+ $bpkg =~ s/\.[^-]+-[^-]+-[^-]+\.rpm$/.*.rpm/;
|
|
|
+ return (glob("$prefix/RPM/PKG/$bpkg"))[0];
|
|
|
}
|
|
|
|
|
|
sub make_defines ($$) {
|