From 893f80d6448e8933a169dc1439c77f8a5ec141d9 Mon Sep 17 00:00:00 2001
From: Marc Espie <espie@cvs.openbsd.org>
Date: Fri, 25 Nov 2011 23:58:41 +0000
Subject: darn, setlist might actually be undefined entirely... noticed by
 nigel

---
 usr.sbin/pkg_add/OpenBSD/PkgDelete.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'usr.sbin/pkg_add/OpenBSD')

diff --git a/usr.sbin/pkg_add/OpenBSD/PkgDelete.pm b/usr.sbin/pkg_add/OpenBSD/PkgDelete.pm
index 5e8f5f63bc0..9dc8d5d2f65 100644
--- a/usr.sbin/pkg_add/OpenBSD/PkgDelete.pm
+++ b/usr.sbin/pkg_add/OpenBSD/PkgDelete.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # ex:ts=8 sw=4:
-# $OpenBSD: PkgDelete.pm,v 1.25 2011/11/25 09:25:59 espie Exp $
+# $OpenBSD: PkgDelete.pm,v 1.26 2011/11/25 23:58:40 espie Exp $
 #
 # Copyright (c) 2003-2010 Marc Espie <espie@openbsd.org>
 #
@@ -380,7 +380,7 @@ sub main
 	my ($self, $state) = @_;
 
 	if ($state->{automatic}) {
-		if (@{$state->{setlist}} == 0) {
+		if (!defined $state->{setlist}) {
 			my $inst = $state->repo->installed;
 			for my $l (@{$inst->locations_list}) {
 				$self->add_location($state, $l);
-- 
cgit v1.2.3