From 6c8b8bce306f26481ffc8f9afc8856077470b4e6 Mon Sep 17 00:00:00 2001 From: Marc Espie Date: Thu, 30 Jan 2014 13:23:52 +0000 Subject: avoid storing dead keys. quirks is exceptional, since it needs to be cached negatively. --- usr.sbin/pkg_add/OpenBSD/AddDelete.pm | 4 ++-- usr.sbin/pkg_add/OpenBSD/Delete.pm | 4 ++-- usr.sbin/pkg_add/OpenBSD/ProgressMeter/Term.pm | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/usr.sbin/pkg_add/OpenBSD/AddDelete.pm b/usr.sbin/pkg_add/OpenBSD/AddDelete.pm index 6ab0cdd9b9c..a0ba7cba891 100644 --- a/usr.sbin/pkg_add/OpenBSD/AddDelete.pm +++ b/usr.sbin/pkg_add/OpenBSD/AddDelete.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: AddDelete.pm,v 1.59 2013/12/30 09:01:30 espie Exp $ +# $OpenBSD: AddDelete.pm,v 1.60 2014/01/30 13:23:51 espie Exp $ # # Copyright (c) 2007-2010 Marc Espie # @@ -293,7 +293,7 @@ sub run_quirks $show = @$l > 0; } $state->errsay("Can't load quirk: #1", $@) if $show; - # cache that this didn't work + # XXX cache that this didn't work $state->{quirks} = undef; } } diff --git a/usr.sbin/pkg_add/OpenBSD/Delete.pm b/usr.sbin/pkg_add/OpenBSD/Delete.pm index 2a283343048..018cfee3b65 100644 --- a/usr.sbin/pkg_add/OpenBSD/Delete.pm +++ b/usr.sbin/pkg_add/OpenBSD/Delete.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: Delete.pm,v 1.128 2014/01/30 12:38:20 espie Exp $ +# $OpenBSD: Delete.pm,v 1.129 2014/01/30 13:23:51 espie Exp $ # # Copyright (c) 2003-2014 Marc Espie # @@ -60,7 +60,7 @@ sub manpages_unindex } } } - undef $state->{mandirs}; + delete $state->{mandirs}; } sub validate_plist diff --git a/usr.sbin/pkg_add/OpenBSD/ProgressMeter/Term.pm b/usr.sbin/pkg_add/OpenBSD/ProgressMeter/Term.pm index 4bd9550ba91..a5faac06917 100644 --- a/usr.sbin/pkg_add/OpenBSD/ProgressMeter/Term.pm +++ b/usr.sbin/pkg_add/OpenBSD/ProgressMeter/Term.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: Term.pm,v 1.19 2013/12/23 15:04:37 espie Exp $ +# $OpenBSD: Term.pm,v 1.20 2014/01/30 13:23:51 espie Exp $ # # Copyright (c) 2004-2007 Marc Espie # @@ -293,7 +293,7 @@ sub clear print "\r", ' 'x length($self->{lastdisplay}), "\r"; } $self->{lastdisplay} = ''; - undef $self->{stars}; + delete $self->{stars}; } sub next -- cgit v1.2.3