Change 13015 by jhi@alpha on 2001/11/15 04:08:50
"link =" from utils.lst was being processed oddly.
Affected files ...
.... //depot/perl/installman#37 edit
Differences ...
==== //depot/perl/installman#37 (xtext) ====
Index: perl/installman
--- perl/installman.~1~ Wed Nov 14 21:15:05 2001
+++ perl/installman Wed Nov 14 21:15:05 2001
@@ -1,5 +1,5 @@
#!./perl -w
-BEGIN { @INC = ('lib') }
+BEGIN { @INC = qw(lib) }
use strict;
use Config;
use Getopt::Long;
@@ -85,8 +85,11 @@
$_ = $1 if /#.*pod\s*=\s*(\S+)/;
my ($where, $what) = m|^(.*?)/(\S+)|;
pod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
- if (($where, $what) = m|#.*link\s*=\s*(\S+)/(\S+)|) {
- pod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
+ if (my ($where2, $what2) = m|#.*link\s*=\s*(\S+)/(\S+)|) {
+ my $old = "$opts{man1dir}/$what.$opts{man1ext}";
+ my $new = "$opts{man1dir}/$what2.$opts{man1ext}";
+ unlink($new);
+ link($old, $new);
}
}
End of Patch.
