#!/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