Ignore:
Timestamp:
Jun 2, 2003, 4:49:55 AM (16 years ago)
Author:
ranger
Message:

if the env var DP_USERECEIPTS is set, find-provides will restrict
dependencies to only files found in the receipts directory specified.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dports/sysutils/rpm/files/patch-autodeps-darwin-req.diff

    r2713 r2725  
    1 --- /dev/null   Sat May 31 16:01:26 2003
    2 +++ autodeps/darwin.req Sat May 31 16:01:13 2003
    3 @@ -0,0 +1,39 @@
     1--- /dev/null   Mon Jun  2 00:44:09 2003
     2+++ autodeps/darwin.req Mon Jun  2 00:43:57 2003
     3@@ -0,0 +1,70 @@
    44+#!/usr/bin/perl
    55+# ----------------------------------------------------------------
     
    77+# ----------------------------------------------------------------
    88+
    9 +
    109+my %files;
    1110+my @check;
     11+my %receipts;
     12+my $usereceipts = 0;
     13+
     14+if (exists $ENV{'DP_USERECEIPTS'}) {
     15+       my $directory = $ENV{'DP_USERECEIPTS'};
     16+       if (opendir(DIR, $directory)) {
     17+               for my $receipt (grep(!/^\.\.?$/, readdir(DIR))) {
     18+                       chomp($receipt);
     19+                       my $receiptopen;
     20+                       if ($receipt =~ /\.bz2$/) {
     21+                               $receiptopen = "bzip2 -dc $directory/$receipt |";
     22+                       } else {
     23+                               $receiptopen = "$directory/$receipt";
     24+                       }
     25+                       if (open(RECEIPT, $receiptopen)) {
     26+                               while (my $contents = <RECEIPT>) {
     27+                                       while ($contents =~ /\G.*?MD5 \((.+?)\)/gs) {
     28+                                               $receipts{$1} = 1;
     29+                                       }
     30+                               }
     31+                               close(RECEIPT);
     32+                       } else {
     33+                               warn "couldn't read $receipt: $!\n";
     34+                       }
     35+                       closedir(DIR);
     36+               }
     37+               $usereceipts = 1;
     38+       } else {
     39+               warn "couldn't open receipt directory: $!\n";
     40+       }
     41+}
    1242+
    1343+while (my $FILE = <STDIN>) {
     
    2757+                               if (/^\s*([^\s].*)\s+\(compatibility version/) {
    2858+                                       my $dep = $1;
     59+                                       next if ($usereceipts and not exists $receipts{$dep});
    2960+                                       if ($dep =~ m,\.framework/.*,) {
    3061+                                               $dep =~ s,^.*?/([^/]*?\.framework)/.*$,$1,;
Note: See TracChangeset for help on using the changeset viewer.