src/files.pl

#!/usr/bin/env perl
use v5.16;
use strict;
use warnings FATAL => 'all';
use FindBin;
use lib "$FindBin::Bin";
use mplib::config qw($CFG);
use mplib::util qw(fail note bare_name);
use mplib::db qw(read_lines read_db);
use mplib::resolve qw(init resolved_db_key);
 
my $flags = mplib::config::parse_flags(\@ARGV);
mplib::config::load($flags);
fail("pkg name required") unless defined $ARGV[0];
init();
 
# resolved_db_key (not a bare bare_name lookup): manifests are written
# under the exact, possibly slotted, installed canon (mplib::db::
# write_manifest), so a bare name for a slotted package needs the same
# fallback-to-its-one-installed-slot resolution mp remove/why/tree/update/
# prune already get, or "mp files <barename>" wrongly reports no manifest
# for a package that's fully installed and tracked.
my $canon = resolved_db_key($ARGV[0], read_db()) // bare_name($ARGV[0]);
my @files = read_lines("$CFG->{MANDIR}/$canon");
unless(@files)
{
	note("no manifest for $canon (not installed, or installed before manifest tracking)");
	exit 0;
}
print "$CFG->{INSTPREFIX}/$_\n" for @files;