1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
*** installman.orig Thu Jun 22 10:42:40 1995
--- installman Thu Nov 02 04:07:38 1995
***************
*** 6,11 ****
--- 6,12 ----
require Cwd;
umask 022;
+ $ENV{SHELL} = 'sh' if $Config{osname} eq 'os2';
$ver = $];
$release = substr($ver,0,3); # Not used presently.
***************
*** 38,48 ****
#Sanity checks
! -x "./perl" || warn "./perl not found! Have you run make?\n";
-d $Config{'installprivlib'}
|| warn "Perl library directory $Config{'installprivlib'} not found.
Have you run make install?. (Installing anyway.)\n";
! -x 't/TEST' || warn "WARNING: You've never run 'make test'!!!",
" (Installing anyway.)\n";
# Install the main pod pages.
--- 39,50 ----
#Sanity checks
! -x "./perl$Config{exe_ext}"
! or warn "./perl$Config{exe_ext} not found! Have you run make?\n";
-d $Config{'installprivlib'}
|| warn "Perl library directory $Config{'installprivlib'} not found.
Have you run make install?. (Installing anyway.)\n";
! -x "t/perl$Config{exe_ext}" || warn "WARNING: You've never run 'make test'!!!",
" (Installing anyway.)\n";
# Install the main pod pages.
***************
*** 66,72 ****
# are enhancements or changes from previous installed versions.
# The error message doesn't include the '..' because the user
# won't be aware that we've chdir to $poddir.
! -x "../pod/pod2man" || die "Executable pod/pod2man not found.\n";
# We want to be sure to use the current perl. We can't rely on
# the installed perl because it might not be actually installed
--- 68,74 ----
# are enhancements or changes from previous installed versions.
# The error message doesn't include the '..' because the user
# won't be aware that we've chdir to $poddir.
! -r "../pod/pod2man" || die "Executable pod/pod2man not found.\n";
# We want to be sure to use the current perl. We can't rely on
# the installed perl because it might not be actually installed
***************
*** 86,92 ****
# Convert name from File/Basename.pm to File::Basename.3 format,
# if necessary.
$manpage =~ s#\.p(m|od)$##;
! $manpage =~ s#/#::#g;
$manpage = "${mandir}/${manpage}.${manext}";
# Print $release $patchlevel stuff? or should pod2man do that?
&cmd("$pod2man $mod > $manpage");
--- 88,98 ----
# Convert name from File/Basename.pm to File::Basename.3 format,
# if necessary.
$manpage =~ s#\.p(m|od)$##;
! if ($Config{osname} eq "os2") {
! $manpage =~ s#/#.#g;
! } else {
! $manpage =~ s#/#::#g;
! }
$manpage = "${mandir}/${manpage}.${manext}";
# Print $release $patchlevel stuff? or should pod2man do that?
&cmd("$pod2man $mod > $manpage");
|
