[pkgsrc/trunk]: pkgsrc/pkgtools/pkg_p5up2date pkg_p5up2date: update to 0.07.

[wiz <wiz%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/3f7b1c9ad901
branches:  trunk
changeset: 375689:3f7b1c9ad901
user:      wiz <wiz%pkgsrc.org@localhost>
date:      Sun Mar 20 08:09:55 2022 +0000

description:
pkg_p5up2date: update to 0.07.

Write more useful entries in case 'make show-vars' fails.

diffstat:

 pkgtools/pkg_p5up2date/Makefile               |   5 ++---
 pkgtools/pkg_p5up2date/files/pkg_p5up2date.pl |  13 ++++++++++---
 2 files changed, 12 insertions(+), 6 deletions(-)

diffs (43 lines):

diff -r 161fb45f1ac7 -r 3f7b1c9ad901 pkgtools/pkg_p5up2date/Makefile
--- a/pkgtools/pkg_p5up2date/Makefile   Sun Mar 20 06:59:18 2022 +0000
+++ b/pkgtools/pkg_p5up2date/Makefile   Sun Mar 20 08:09:55 2022 +0000
@@ -1,7 +1,6 @@
-# $NetBSD: Makefile,v 1.21 2021/05/24 19:53:42 wiz Exp $
+# $NetBSD: Makefile,v 1.22 2022/03/20 08:09:55 wiz Exp $
 
-PKGNAME=       pkg_p5up2date-0.06
-PKGREVISION=   7
+PKGNAME=       pkg_p5up2date-0.07
 CATEGORIES=    pkgtools
 
 MAINTAINER=    pkgsrc-users%NetBSD.org@localhost
diff -r 161fb45f1ac7 -r 3f7b1c9ad901 pkgtools/pkg_p5up2date/files/pkg_p5up2date.pl
--- a/pkgtools/pkg_p5up2date/files/pkg_p5up2date.pl     Sun Mar 20 06:59:18 2022 +0000
+++ b/pkgtools/pkg_p5up2date/files/pkg_p5up2date.pl     Sun Mar 20 08:09:55 2022 +0000
@@ -146,8 +146,10 @@
 sub get_pkg_vars
 {
     my $varnames = join( " ", @_ );
-    my @vals = qx($make_bin show-vars VARNAMES="$varnames");  chomp @vals;
-    return @vals;
+    my @vals = qx($make_bin show-vars VARNAMES="$varnames");
+    my $retval = $?;
+    chomp @vals;
+    return $?, @vals;
 }
 
 sub get_inst_pkgs
@@ -300,7 +302,12 @@
 foreach my $dn (@p5_pkg_dirs)
 {
     chdir( $dn );
-    my ($distnm, $extract_sufx, $pkgnm, $maint ) = get_pkg_vars( qw(DISTNAME EXTRACT_SUFX PKGNAME MAINTAINER) );
+    my ( $result, $distnm, $extract_sufx, $pkgnm, $maint ) = get_pkg_vars( qw(DISTNAME EXTRACT_SUFX PKGNAME MAINTAINER) );
+    if ( $result != 0) {
+       $writer->write_entry( $dn, "", "out of sync?", "n/a", "!=", "n/a", "" );
+       ++$pkgcrank;
+       next;
+    }
     my $pkgver = 0;
     if( $distnm =~ m/^(.*)-(v?[0-9].*?)$/ )
     {