1 *** installman.orig Thu Jun 22 10:42:40 1995
2 --- installman Thu Nov 02 04:07:38 1995
9 + $ENV{SHELL} = 'sh' if $Config{osname} eq 'os2';
12 $release = substr($ver,0,3); # Not used presently.
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";
25 # Install the main pod pages.
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";
38 # Install the main pod pages.
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";
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
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";
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
58 # Convert name from File/Basename.pm to File::Basename.3 format,
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");
66 # Convert name from File/Basename.pm to File::Basename.3 format,
68 $manpage =~ s#\.p(m|od)$##;
69 ! if ($Config{osname} eq "os2") {
70 ! $manpage =~ s#/#.#g;
72 ! $manpage =~ s#/#::#g;
74 $manpage = "${mandir}/${manpage}.${manext}";
75 # Print $release $patchlevel stuff? or should pod2man do that?
76 &cmd("$pod2man $mod > $manpage");