OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Ralf S. Engelschall
  Root:   /e/openpkg/cvs                   Email:  [EMAIL PROTECTED]
  Module: openpkg-src                      Date:   27-Nov-2002 16:54:01
  Branch: HEAD                             Handle: 2002112715540000

  Modified files:
    openpkg-src/openpkg-tool openpkg-build.pl

  Log:
    remove hard-coded 'sudo'; be aware of different instance id

  Summary:
    Revision    Changes     Path
    1.6         +4  -2      openpkg-src/openpkg-tool/openpkg-build.pl
  ____________________________________________________________________________

  Index: openpkg-src/openpkg-tool/openpkg-build.pl
  ============================================================
  $ cvs diff -u -r1.5 -r1.6 openpkg-build.pl
  --- openpkg-src/openpkg-tool/openpkg-build.pl 27 Nov 2002 15:34:28 -0000      1.5
  +++ openpkg-src/openpkg-tool/openpkg-build.pl 27 Nov 2002 15:54:00 -0000      1.6
  @@ -1123,14 +1123,16 @@
   
   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 ($$) {
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     [EMAIL PROTECTED]

Reply via email to