Change 13351 by jhi@alpha on 2001/11/29 02:28:06
Subject: [PATCH] Re: [ID 20011127.153] installman error
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Wed, 28 Nov 2001 23:38:43 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/installman#41 edit
Differences ...
==== //depot/perl/installman#41 (xtext) ====
Index: perl/installman
--- perl/installman.~1~ Wed Nov 28 19:45:05 2001
+++ perl/installman Wed Nov 28 19:45:05 2001
@@ -83,7 +83,7 @@
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+)|) {
End of Patch.
