Prevent pkg_info from puking: 'Use of uninitialized'

[Aaron Bieber]

Hola,

This was spotted by mischief on #openbsd (freenode). Currently if -v
is used with -Q and PKG_PATH is not set, users see:

  Use of uninitialized value $ENV{"PKG_PATH"} in concatenation (.) or
  string at /usr/libdata/perl5/OpenBSD/PkgInfo.pm line...

This diff fixes that.

OK?

Cheers,
Aaron

Index: OpenBSD/PkgInfo.pm
===================================================================
RCS file: /cvs/src/usr.sbin/pkg_add/OpenBSD/PkgInfo.pm,v
retrieving revision 1.46
diff -u -p -r1.46 PkgInfo.pm
--- OpenBSD/PkgInfo.pm  4 Aug 2017 23:35:40 -0000       1.46
+++ OpenBSD/PkgInfo.pm  6 Aug 2017 03:31:38 -0000
@@ -596,7 +596,8 @@ sub parse_and_run
        if ($state->opt('Q')) {
                require OpenBSD::Search;
 
-               print "PKG_PATH=$ENV{PKG_PATH}\n" if $state->verbose;
+               print "PKG_PATH=$ENV{PKG_PATH}\n" if ($state->verbose &&
+                   defined $ENV{PKG_PATH});
                my $partial = 
OpenBSD::Search::PartialStem->new($state->opt('Q'));
                my $r = $state->repo->match_locations($partial);
 


-- 
PGP: 0x1F81112D62A9ADCE / 3586 3350 BFEA C101 DB1A  4AF0 1F81 112D 62A9 ADCE