diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2003-10-27 22:46:24 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2003-10-27 22:46:24 +0000 |
| commit | 1481e2e2ca594824961b15d49338b0189de6f251 (patch) | |
| tree | 32bc1169af15199f63b22222dd3a99e514f9a5b7 | |
| parent | f94729a5e5a6d016f6a232f091a1c25698aa04e3 (diff) | |
extra block around do while loop.
perl quick: this is needed for last to work.
Found out by sturm@
| -rw-r--r-- | usr.sbin/pkg_add/pkg_delete | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/usr.sbin/pkg_add/pkg_delete b/usr.sbin/pkg_add/pkg_delete index c24403363c9..3d08f2059f9 100644 --- a/usr.sbin/pkg_add/pkg_delete +++ b/usr.sbin/pkg_add/pkg_delete @@ -1,6 +1,6 @@ #!/usr/bin/perl # ex:ts=8 sw=4: -# $OpenBSD: pkg_delete,v 1.4 2003/10/23 23:11:22 espie Exp $ +# $OpenBSD: pkg_delete,v 1.5 2003/10/27 22:46:23 espie Exp $ # # Copyright (c) 2003 Marc Espie. # @@ -290,7 +290,7 @@ $state->{quick} = $opt_q; $state->{verbose} = $opt_v; $state->{extra} = $opt_c; $ENV{'PKG_DELETE_EXTRA'} = $state->{extra} ? "Yes" : "No"; -do { +{ do { $removed = 0; for my $pkgname (@ARGV) { next if $done{$pkgname}; @@ -324,4 +324,4 @@ do { # we're not actually doing anything, so we can't expect this loop # to ever finish last if $opt_n; -} while ($removed); +} while ($removed); } |