X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installman;h=360d4f34f7db36e222f24d40873a23fac7e694b3;hb=0e59b7c638ec42b6dcdc0b75d1e9f5276dbed538;hp=2eaab1bc1692b867abbb4b17db82835387d0fae3;hpb=42327aa1f4652acdc2f9b8daa2abb27eaf53aede;p=p5sagit%2Fp5-mst-13.2.git diff --git a/installman b/installman index 2eaab1b..360d4f3 100755 --- a/installman +++ b/installman @@ -83,7 +83,7 @@ while () { 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+)|) {