From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 23 Jul 2003 12:40:11 +0000 (+0000)
Subject: utils.lst parsing tweak for bin/perldoc installation from Rafael.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71c9e11c8d320b29fd87c15e0557fc3957df10f4;p=p5sagit%2Fp5-mst-13.2.git

utils.lst parsing tweak for bin/perldoc installation from Rafael.

p4raw-id: //depot/perl@20180
---

diff --git a/installperl b/installperl
index 9eaad73..52df9c1 100755
--- a/installperl
+++ b/installperl
@@ -102,7 +102,8 @@ my (@scripts, @tolink);
 open SCRIPTS, "utils.lst" or die "Can't open utils.lst: $!";
 while (<SCRIPTS>) {
     next if /^#/;
-    next if /#\s*pod\s*=/; # The pods are provided separately
+    s/\s*#\s*pod\s*=.*//; # install script regardless of pod location
+    next if /a2p/; # a2p is binary, to be installed separately
     chomp;
     if (/(\S*)\s*#\s*link\s*=\s*(\S*)/) {
 	push @scripts, $1;