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