Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
our $lockfile = "../.nailing-cargo-sphere.lock";
our @configs;
our $lockfile = "../.nailing-cargo-sphere.lock";
our @configs;
-our ($verbose,$noact,$dump);
+our $verbose=1;
+our ($noact,$dump);
sub read_or_enoent ($) {
my ($fn) = @_;
sub read_or_enoent ($) {
my ($fn) = @_;
sub read_manifest ($) {
my ($subdir) = @_;
my $manifest = "../$subdir/Cargo.toml";
sub read_manifest ($) {
my ($subdir) = @_;
my $manifest = "../$subdir/Cargo.toml";
- print STDERR "$self: reading $manifest...\n" if $verbose>=3;
+ print STDERR "$self: reading $manifest...\n" if $verbose>=4;
if (defined $manifests{$manifest}) {
print STDERR
"$self: warning: $subdir: specified more than once!\n";
if (defined $manifests{$manifest}) {
print STDERR
"$self: warning: $subdir: specified more than once!\n";
}
rename $use, $mf or die "$self: install nailed $use: $!\n";
unlink_or_enoent $rm or die "$self: remove old $rm: $!\n";
}
rename $use, $mf or die "$self: install nailed $use: $!\n";
unlink_or_enoent $rm or die "$self: remove old $rm: $!\n";
- print STDERR "Nailed $mf\n" if $verbose>=2;
+ print STDERR "Nailed $mf\n" if $verbose>=3;
while (m{^-.}) {
if (s{^-v}{-}) {
$verbose++;
while (m{^-.}) {
if (s{^-v}{-}) {
$verbose++;
+ } elsif (s{^-q}{-}) {
+ $verbose=0;
} elsif (s{^-n}{-}) {
$noact++;
} elsif (s{^-D}{-}) {
} elsif (s{^-n}{-}) {
$noact++;
} elsif (s{^-D}{-}) {
-print STDERR "INVOKED\n";
-print STDERR "UNINSTALLED\n";
$want_uninstall = 1;
exit $estatus;
$want_uninstall = 1;
exit $estatus;