# ex:ts=8 sw=4:
-# $OpenBSD: AddCreateDelete.pm,v 1.27 2014/11/30 15:56:15 espie Exp $
+# $OpenBSD: AddCreateDelete.pm,v 1.28 2015/01/04 14:10:20 espie Exp $
#
# Copyright (c) 2007-2014 Marc Espie <espie@openbsd.org>
#
{
my ($self, $offset) = @_;
- return $self->todo($offset // 0);
+ return $self->ntodo($offset // 0);
}
OpenBSD::Auto::cache(signer_list,
# ex:ts=8 sw=4:
-# $OpenBSD: AddDelete.pm,v 1.69 2014/12/03 22:41:11 espie Exp $
+# $OpenBSD: AddDelete.pm,v 1.70 2015/01/04 14:10:20 espie Exp $
#
# Copyright (c) 2007-2010 Marc Espie <espie@openbsd.org>
#
Sys::Syslog::syslog('info', $self->f(@_));
}
-sub todo
+sub ntodo
{
my ($state, $offset) = @_;
return $state->tracker->sets_todo($offset);
#! /usr/bin/perl
# ex:ts=8 sw=4:
-# $OpenBSD: Signer.pm,v 1.5 2014/09/20 09:04:31 espie Exp $
+# $OpenBSD: Signer.pm,v 1.6 2015/01/04 14:10:20 espie Exp $
#
# Copyright (c) 2003-2014 Marc Espie <espie@openbsd.org>
#
$sig->{b64sig} = $state->{signer}->compute_signature($state, $plist);
}
-sub todo
+sub ntodo
{
my ($self, $offset) = @_;
return sprintf("%u/%u", $self->{done}-$offset, $self->{total});
# ex:ts=8 sw=4:
-# $OpenBSD: Ustar.pm,v 1.85 2014/11/20 11:39:29 espie Exp $
+# $OpenBSD: Ustar.pm,v 1.86 2015/01/04 14:10:20 espie Exp $
#
# Copyright (c) 2002-2014 Marc Espie <espie@openbsd.org>
#
my ($self, @args) = @_;
$self->{archive}{state}->errsay(@args);
}
-sub todo
+sub left_todo
{
my ($self, $toread) = @_;
return if $toread == 0;
}
$toread -= $actual;
- $self->todo($toread);
+ $self->left_todo($toread);
}
$out->close or $self->fatal("Error closing #1#2: #3",
$self->{destdir}, $self->name, $!);
}
$toread -= $actual;
- $self->todo($toread);
+ $self->left_todo($toread);
}
if ($size % 512) {
print $out "\0" x (512 - $size % 512) or