From 1481e2e2ca594824961b15d49338b0189de6f251 Mon Sep 17 00:00:00 2001
From: Marc Espie <espie@cvs.openbsd.org>
Date: Mon, 27 Oct 2003 22:46:24 +0000
Subject: extra block around do while loop. perl quick: this is needed for last
 to work.

Found out by sturm@
---
 usr.sbin/pkg_add/pkg_delete | 6 +++---
 1 file 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); }
-- 
cgit v1.2.3