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

p4raw-id: //depot/perl@20180

1 files changed, 2 insertions, 1 deletions

diff --git a/installperl b/installperl
index 9eaad73d1e..52df9c18b9 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;