From: espie <espie@openbsd.org>
Date: Mon, 29 May 2017 12:54:05 +0000 (+0000)
Subject: do not whine if installpath is undef.
X-Git-Url: http://artulab.com/gitweb/?a=commitdiff_plain;h=2d7516c0ea90644fcdb98265450eb84db1070ce8;p=openbsd

do not whine if installpath is undef.
---

diff --git a/usr.sbin/pkg_add/OpenBSD/PackageRepository.pm b/usr.sbin/pkg_add/OpenBSD/PackageRepository.pm
index 2a4abb7d263..242fd414a8a 100644
--- a/usr.sbin/pkg_add/OpenBSD/PackageRepository.pm
+++ b/usr.sbin/pkg_add/OpenBSD/PackageRepository.pm
@@ -1,5 +1,5 @@
 # ex:ts=8 sw=4:
-# $OpenBSD: PackageRepository.pm,v 1.143 2017/05/18 12:24:15 espie Exp $
+# $OpenBSD: PackageRepository.pm,v 1.144 2017/05/29 12:54:05 espie Exp $
 #
 # Copyright (c) 2003-2010 Marc Espie <espie@openbsd.org>
 #
@@ -113,7 +113,10 @@ sub parse
 {
 	my ($class, $r, $state) = @_;
 
+	{
+	no warnings qw(uninitialized);	# in case installpath is empty
 	$$r =~ s/^installpath(\:|$)/$state->installpath.$1/e;
+	}
 
 	my $u = $$r;
 	return undef if $u eq '';