3 lines
285 B
Plaintext
3 lines
285 B
Plaintext
|
#!/bin/sh
|
||
|
|
find /var/db/pkg/ -name PROVIDE | perl -ne 'chomp;($p)=m#^/var/db/pkg/(.*?/.*?)-(\d+.*)/PROVIDE$#; {local$/=undef;open$f,$_;$c=<$f>;close$f}$c=~s/^\s*//;$c=~s/\s*$//;@c=split/\s+/,$c;($v{$_}.=" $p")for@c; END{while(($k,$v)=each%v){print"$k$v\n"}}' >/var/cache/edb/virtuals
|