- Add a script to check unneeded dependencies for perl modules.

2 files changed, 107 insertions, 0 deletions

diff --git a/Tools/scripts/README b/Tools/scripts/README
index 228baaf7be48..6813200adbef 100644
--- a/Tools/scripts/README
+++ b/Tools/scripts/README
@@ -30,6 +30,7 @@ gnomedepends - Analyse pkg/PLIST and give an advice as to which GNOME ports
                should be listes in {RUN,LIB}_DEPENDS for this port
 mark_safe.pl - utility to set subsets of ports to MAKE_JOBS_(UN)SAFE=yes
 neededlibs.sh - Extract direct library dependencies from binaries.
+p5-deps.pl - Check unneeded p5-* dependencies which is in perl5.8 port.
 plist - automate (mostly, at least) pkg-plist generation
 prpatch - just does `patch $1 < pr-patch' (pr-patch is created by getpr)
 prdone  - checks in the port, attempting to fill out the commit message using
diff --git a/Tools/scripts/p5-deps.pl b/Tools/scripts/p5-deps.pl
new file mode 100755
index 000000000000..6b0833f25cae
--- /dev/null
+++ b/Tools/scripts/p5-deps.pl
@@ -0,0 +1,106 @@
+#!/usr/bin/perl
+#
+# $FreeBSD$
+#
+# Usage: p5-deps.pl
+#
+# List up unneeded dependencies which is in perl 5.8.9 dist.
+#
+# This script will be used when perl5.8 port removed.
+
+use strict;
+use warnings;
+use File::Slurp;
+
+my (%OLD, %VER);
+init();
+
+open(my $fh, "<", "/usr/ports/INDEX-8") or die;
+while (<$fh>) {
+  chomp;
+  my ($port, $dir, $prefix, $comment, $descr, $maint, $cat, $bdep, $rdep) = split(/\|/);
+#  next if ($maint !~ m/^(kuriyama|perl|port)\@freebsd\.org$/i);
+#  next if ($dir !~ m#^/usr/ports/devel/#);
+  my $go = 0;
+  foreach my $old (values %OLD) {
+    if ($bdep =~ m|\b$old-\d| or $rdep =~ m|\b$old-\d|) {
+      $go = 1;
+      last;
+    }
+  }
+  if ($go) {
+    foreach my $m (keys %OLD) {
+      my $make = read_file("$dir/Makefile");
+      if ($make =~ m#([0-9.]+)?:\${PORTSDIR}/$m($| )#s) {
+	if ($1) {
+	  # Compare versions in Makefile vs in core.
+	  chomp(my $cmp = `pkg_version -t $1 $VER{$m}`);
+	  if ($cmp eq '>') {	# newer version required, OK.
+	    last;
+	  }
+	}
+	if (($m eq 'converters/p5-Encode' and $port eq 'p5-Padre-0.50_1') or
+	    ($m eq 'devel/p5-Test-Harness' and $port eq 'p5-Games-Bingo-Print-0.04_1')) {
+	  # Known to skip.
+	} else {
+	  printf "$dir	$port	$m\n";
+	  last;
+	}
+      }
+    }
+  }
+}
+
+sub init {
+  while (<DATA>) {
+    chomp;
+    my ($dir, $ver) = split(/\s+/, $_);
+    chdir "/usr/ports/$dir" or die "chdir($dir): $!";
+    chomp(my $tri = `make -VPKGNAMEPREFIX -VPORTNAME -VPKGNAMESUFFIX`);
+    my $name = join("", split(/\n/, $tri));
+    $OLD{$dir} = $name;
+    $VER{$dir} = $ver;
+  }
+}
+
+# TAP::Harness is p5-Test-Harness>=3.00
+
+__DATA__;
+converters/p5-Encode		2.26
+converters/p5-MIME-Base64	3.07
+devel/p5-Data-Dumper		2.121
+devel/p5-ExtUtils-Command	1.16
+devel/p5-ExtUtils-Constant	0.21
+devel/p5-ExtUtils-Install	1.52
+devel/p5-ExtUtils-MakeMaker	6.48
+devel/p5-ExtUtils-Manifest	1.56
+devel/p5-ExtUtils-ParseXS	2.19
+devel/p5-File-Path		2.07
+devel/p5-File-Temp		0.20
+devel/p5-Getopt-Long		2.37
+devel/p5-IO			1.23
+devel/p5-Locale-Maketext	1.13
+devel/p5-Memoize		1.01
+devel/p5-Module-CoreList	2.17
+devel/p5-Module-Pluggable	3.9
+devel/p5-NEXT			0.64
+devel/p5-PathTools		3.31
+devel/p5-Storable		2.19
+devel/p5-Term-ANSIColor		1.12
+devel/p5-Test-Harness		2.64
+devel/p5-Test-Simple		0.80
+devel/p5-Time-HiRes		1.9715
+devel/p5-Time-Local		1.1901
+devel/p5-XSLoader		0.10
+lang/p5-Scalar-List-Utils	1.19
+math/p5-Math-BigInt		1.89
+math/p5-Math-BigRat		0.22
+math/p5-Math-Complex		1.54
+net/p5-Net			1.11
+security/p5-Digest		1.15
+security/p5-Digest-MD5		2.37
+textproc/p5-Filter-Simple	0.83
+textproc/p5-Pod-Parser		1.35
+textproc/p5-Text-Balanced	1.98
+textproc/p5-Text-ParseWords	3.27
+www/p5-CGI.pm			3.42