Mon Aug 15 14:48:24 2022 UTC ()
pkg_p5up2date: update to 0.08.

Use glob() instead of find() from p5-File-Find-Rule.

Less dependencies, and avoids false positives in lower subdirectories
(e.g. in .hg/store/...).


(wiz)
diff -r1.23 -r1.24 pkgsrc/pkgtools/pkg_p5up2date/Makefile
diff -r1.6 -r1.7 pkgsrc/pkgtools/pkg_p5up2date/files/pkg_p5up2date.pl
cvs diff -r1.23 -r1.24 pkgsrc/pkgtools/pkg_p5up2date/Makefile (expand / switch to unified diff)

--- pkgsrc/pkgtools/pkg_p5up2date/Makefile 2022/06/28 11:35:25 1.23
+++ pkgsrc/pkgtools/pkg_p5up2date/Makefile 2022/08/15 14:48:24 1.24
@@ -1,29 +1,27 @@ @@ -1,29 +1,27 @@
1# $NetBSD: Makefile,v 1.23 2022/06/28 11:35:25 wiz Exp $ 1# $NetBSD: Makefile,v 1.24 2022/08/15 14:48:24 wiz Exp $
2 2
3PKGNAME= pkg_p5up2date-0.07 3PKGNAME= pkg_p5up2date-0.08
4PKGREVISION= 1 
5CATEGORIES= pkgtools 4CATEGORIES= pkgtools
6 5
7MAINTAINER= pkgsrc-users@NetBSD.org 6MAINTAINER= pkgsrc-users@NetBSD.org
8COMMENT= Check p5-* pkgsrc packages requiring updates 7COMMENT= Check p5-* pkgsrc packages requiring updates
9 8
10USE_TOOLS+= perl:run 9USE_TOOLS+= perl:run pod2man
11 10
12WRKSRC= ${WRKDIR} 11WRKSRC= ${WRKDIR}
13NO_BUILD= yes 12NO_BUILD= yes
14USE_LANGUAGES= # none 13USE_LANGUAGES= # none
15 14
16DEPENDS+= p5-File-Find-Rule>=0.30:../../devel/p5-File-Find-Rule 
17DEPENDS+= p5-CPAN-DistnameInfo>=0.02:../../devel/p5-CPAN-DistnameInfo 15DEPENDS+= p5-CPAN-DistnameInfo>=0.02:../../devel/p5-CPAN-DistnameInfo
18 16
19INSTALLATION_DIRS= bin ${PKGMANDIR}/man8 17INSTALLATION_DIRS= bin ${PKGMANDIR}/man8
20 18
21SUBST_CLASSES+= tools 19SUBST_CLASSES+= tools
22SUBST_STAGE.tools= pre-configure 20SUBST_STAGE.tools= pre-configure
23SUBST_MESSAGE.tools= Substituting tool locations. 21SUBST_MESSAGE.tools= Substituting tool locations.
24SUBST_FILES.tools= pkg_p5up2date.pl 22SUBST_FILES.tools= pkg_p5up2date.pl
25SUBST_VARS.tools= PKG_INFO_CMD MAKE PERL5 23SUBST_VARS.tools= PKG_INFO_CMD MAKE PERL5
26 24
27SUBST_CLASSES+= pkgsrcdir 25SUBST_CLASSES+= pkgsrcdir
28SUBST_STAGE.pkgsrcdir= pre-configure 26SUBST_STAGE.pkgsrcdir= pre-configure
29SUBST_MESSAGE.pkgsrcdir= Recording default path of pkgsrc base directory. 27SUBST_MESSAGE.pkgsrcdir= Recording default path of pkgsrc base directory.
cvs diff -r1.6 -r1.7 pkgsrc/pkgtools/pkg_p5up2date/files/pkg_p5up2date.pl (expand / switch to unified diff)

--- pkgsrc/pkgtools/pkg_p5up2date/files/pkg_p5up2date.pl 2022/03/20 08:09:56 1.6
+++ pkgsrc/pkgtools/pkg_p5up2date/files/pkg_p5up2date.pl 2022/08/15 14:48:24 1.7
@@ -1,25 +1,24 @@ @@ -1,25 +1,24 @@
1#!@PERL5@ -w 1#!@PERL5@ -w
2 2
3use strict; 3use strict;
4use warnings; 4use warnings;
5use 5.010; 5use 5.010;
6 6
7use Carp qw(carp croak); 7use Carp qw(carp croak);
8use Cwd qw(abs_path); 8use Cwd qw(abs_path);
9use File::Basename; 9use File::Basename;
10use File::Spec; 10use File::Spec;
11use version; 11use version;
12use File::Find::Rule; 
13use Getopt::Long; 12use Getopt::Long;
14use Pod::Usage qw(pod2usage); 13use Pod::Usage qw(pod2usage);
15 14
16use CPAN; 15use CPAN;
17use CPAN::DistnameInfo; 16use CPAN::DistnameInfo;
18use Module::CoreList; 17use Module::CoreList;
19 18
20package PkgP5UpToDate::AsciiWriter; 19package PkgP5UpToDate::AsciiWriter;
21 20
22sub new 21sub new
23{ 22{
24 my ($class, $filename) = @_; 23 my ($class, $filename) = @_;
25 my %inst; 24 my %inst;
@@ -286,27 +285,27 @@ $CPAN::Config_loaded or die "Can't load  @@ -286,27 +285,27 @@ $CPAN::Config_loaded or die "Can't load
286 285
287my %havepkgs; 286my %havepkgs;
288$opts{"scan-installed"} and %havepkgs = get_inst_pkgs(); 287$opts{"scan-installed"} and %havepkgs = get_inst_pkgs();
289 288
290my $writer = $writers{$opts{'output-fmt'}}->new( $opts{'output-file'} ); 289my $writer = $writers{$opts{'output-fmt'}}->new( $opts{'output-file'} );
291$writer->init(); 290$writer->init();
292 291
293my %pkgdist = get_cpan_versions( $opts{'update-cpan-index'} ); 292my %pkgdist = get_cpan_versions( $opts{'update-cpan-index'} );
294my %distmods = get_modules_by_distribution(); 293my %distmods = get_modules_by_distribution();
295 294
296my ( $pkg2update, $pkgok, $pkgcrank ) = ( 0, 0, 0 ); 295my ( $pkg2update, $pkgok, $pkgcrank ) = ( 0, 0, 0 );
297 296
298my $pkgsrc_base = find_pkgsrc_dir(); 297my $pkgsrc_base = find_pkgsrc_dir();
299my @p5_pkg_dirs = find( directory => name => "p5-*", in => $pkgsrc_base ); 298my @p5_pkg_dirs = glob($pkgsrc_base . "/*/p5-*" );
300 @p5_pkg_dirs = sort @p5_pkg_dirs; 299 @p5_pkg_dirs = sort @p5_pkg_dirs;
301 300
302foreach my $dn (@p5_pkg_dirs) 301foreach my $dn (@p5_pkg_dirs)
303{ 302{
304 chdir( $dn ); 303 chdir( $dn );
305 my ( $result, $distnm, $extract_sufx, $pkgnm, $maint ) = get_pkg_vars( qw(DISTNAME EXTRACT_SUFX PKGNAME MAINTAINER) ); 304 my ( $result, $distnm, $extract_sufx, $pkgnm, $maint ) = get_pkg_vars( qw(DISTNAME EXTRACT_SUFX PKGNAME MAINTAINER) );
306 if ( $result != 0) { 305 if ( $result != 0) {
307 $writer->write_entry( $dn, "", "out of sync?", "n/a", "!=", "n/a", "" ); 306 $writer->write_entry( $dn, "", "out of sync?", "n/a", "!=", "n/a", "" );
308 ++$pkgcrank; 307 ++$pkgcrank;
309 next; 308 next;
310 } 309 }
311 my $pkgver = 0; 310 my $pkgver = 0;
312 if( $distnm =~ m/^(.*)-(v?[0-9].*?)$/ ) 311 if( $distnm =~ m/^(.*)-(v?[0-9].*?)$/ )