| 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"); |
projects / p5sagit/p5-mst-13.2.git / blame