From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 28 Nov 2001 23:38:43 +0000 (+0000)
Subject: Re: [ID 20011127.153] installman error
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53fb3a93d5c9d966711a0c5ebec2652fa815e12f;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20011127.153] installman error
Message-ID: <20011128233843.N37621@plum.flirble.org>

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

diff --git a/installman b/installman
index 2eaab1b..360d4f3 100755
--- a/installman
+++ b/installman
@@ -83,7 +83,7 @@ while (<UTILS>) {
     next if /^#/;
     chomp;
     $_ = $1 if /#.*pod\s*=\s*(\S+)/;
-    my ($where, $what) = m|^(.*)/(\S+)|;
+    my ($where, $what) = m|^(\S*)/(\S+)|;
     pod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
     if ($has_man1dir) {
 	if (my ($where2, $what2) = m|#.*link\s*=\s*(\S+)/(\S+)|) {