*** 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");