src/mask.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 set_pkgconf);
use mplib::util qw(fail ok confirm bare_name);
use mplib::resolve qw(init);
 
my $flags = mplib::config::parse_flags(\@ARGV);
mplib::config::load($flags);
fail("mask needs a package name") unless @ARGV;
init();
 
my $canon = bare_name($ARGV[0]);
confirm("mask: $canon -- continue?");
set_pkgconf($canon, 'MASK', 'yes');
ok("$canon masked (persisted in $CFG->{WD}/pkgconf.conf -- 'mp install --unmask' still overrides "
    . "for a single invocation; use 'mp unmask' to lift this persistently)");