From 4bcc34dd2b5a9f30b67e40762dc12965c32d8ed8 Mon Sep 17 00:00:00 2001 From: Marc Espie Date: Thu, 10 Jun 2010 07:21:08 +0000 Subject: next -> return after code change (noticed by Antti Harri) --- usr.sbin/pkg_add/OpenBSD/PkgCheck.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/usr.sbin/pkg_add/OpenBSD/PkgCheck.pm b/usr.sbin/pkg_add/OpenBSD/PkgCheck.pm index 7da41295fa5..df1c11ac096 100644 --- a/usr.sbin/pkg_add/OpenBSD/PkgCheck.pm +++ b/usr.sbin/pkg_add/OpenBSD/PkgCheck.pm @@ -1,7 +1,7 @@ #! /usr/bin/perl # ex:ts=8 sw=4: -# $OpenBSD: PkgCheck.pm,v 1.12 2010/06/09 11:21:15 espie Exp $ +# $OpenBSD: PkgCheck.pm,v 1.13 2010/06/10 07:21:07 espie Exp $ # # Copyright (c) 2003-2010 Marc Espie # @@ -475,14 +475,14 @@ sub sanity_check } else { $self->may_remove($state, $name); } - next; + return; } my $contents = $info.OpenBSD::PackageInfo::CONTENTS; unless (-f $contents) { $state->errsay("#1: missing #2", $state->safe($name), $state->safe($contents)); $self->may_remove($state, $name); - next; + return; } my $plist; eval { @@ -491,7 +491,7 @@ sub sanity_check if ($@ || !defined $plist) { $state->errsay("#1: bad packing-list", $state->safe($name)); $self->may_remove($state, $name); - next; + return; } if ($plist->pkgname ne $name) { $state->errsay("#1: pkgname does not match", -- cgit v1.2.3