On Sun, 19 Dec 2010 22:30:40 -1000, Joel Roth wrote:
> For File::Find
>
> apt-file found:
>
> libfile-find-object-perl
> libfile-find-object-rule-perl
> libfile-find-rule-perl
> libfile-find-rule-perl-perl
> libfile-find-rule-vcs-perl
> libfile-finder-perl
> perl-doc
> my @apt_file_pkgs = split "\n",qx(apt-file -l find $want);
> say_results("apt-file",@apt_file_pkgs);
If you use apt-file I think the approach from
http://git.koha-community.org/gitweb/?p=koha.git;a=blob;f=debian/list-deps;h=d5f6ba3262d36a6225b600e95b3fc6f4889f5458;h
provides better results:
33 $subpath =~ s,::,/,g;
34 my $output =
35 qx(apt-file -l -x search "$prefix/$subpath.pm\$");
36 my @temp = split(/\n/, $output);
i.e. the "-x" option to search for (in this example) File/Find.pm$
Or without the regexp:
$want =~ s,::,/,g;
my @apt_file_pkgs = split "\n",qx(apt-file -l find $want . '.pm');
(In general I think you can drop the apt-file part as dh-make-perl's
methods provide you with basically the same info. And you should also
be able to get the package version from it.)
Cheers,
gregor
--
.''`. http://info.comodo.priv.at/ -- GPG key IDs: 0x8649AA06, 0x00F3CFE4
: :' : Debian GNU/Linux user, admin, & developer - http://www.debian.org/
`. `' Member of VIBE!AT & SPI, fellow of Free Software Foundation Europe
`- NP: Joan Baez: Don't cry for me Argentina
Attachment:
signature.asc
Description: Digital signature