# ex:ts=8 sw=4:
-# $OpenBSD: Add.pm,v 1.152 2014/05/20 05:46:13 espie Exp $
+# $OpenBSD: Add.pm,v 1.153 2014/05/20 05:55:43 espie Exp $
#
# Copyright (c) 2003-2014 Marc Espie <espie@openbsd.org>
#
my $destdir = $state->{destdir};
# fudge verbose for API differences
- my $v = $state->{v};
- $state->{v} = $state->verbose >= 2;
while (my ($k, $v) = each %{$state->{addman}}) {
my @l = map { "$destdir$k/$_" } @$v;
if ($state->{not}) {
$state->run_makewhatis(['-d', $destdir.$k], \@l);
}
}
- $state->{v} = $v;
delete $state->{addman};
}
# ex:ts=8 sw=4:
-# $OpenBSD: AddCreateDelete.pm,v 1.23 2014/05/20 05:46:13 espie Exp $
+# $OpenBSD: AddCreateDelete.pm,v 1.24 2014/05/20 05:55:43 espie Exp $
#
# Copyright (c) 2007-2014 Marc Espie <espie@openbsd.org>
#
sub vsystem
{
my $self = shift;
- my $verbose = $self;
if ($self->verbose < 2) {
$self->system(@_);
} else {
# ex:ts=8 sw=4:
-# $OpenBSD: Delete.pm,v 1.136 2014/05/20 05:46:13 espie Exp $
+# $OpenBSD: Delete.pm,v 1.137 2014/05/20 05:55:43 espie Exp $
#
# Copyright (c) 2003-2014 Marc Espie <espie@openbsd.org>
#
return unless defined $state->{rmman};
my $destdir = $state->{destdir};
- # fudge verbose for API differences
- my $v = $state->{v};
- $state->{v} = $state->verbose >= 2;
while (my ($k, $v) = each %{$state->{rmman}}) {
my @l = map { "$destdir$k/$_" } @$v;
if ($state->{not}) {
$state->run_makewhatis(['-u', $destdir.$k], \@l);
}
}
- $state->{v} = $v;
delete $state->{rmman};
}