--- perl5.002.ORG/Configure Tue Feb 27 23:06:34 1996 +++ Configure Sat Mar 16 11:21:52 1996 @@ -85,11 +85,12 @@ PATH=.$p_$PATH export PATH -: Sanity checks -if test ! -t 0; then - echo "Say 'sh $me', not 'sh <$me'" - exit 1 -fi +#: Sanity checks (Disabled for FreeBSD build - users coming here [ws]ould +# know what they are doing anyway) ;-) MarkM +#if test ! -t 0; then +# echo "Say 'sh $me', not 'sh <$me'" +# exit 1 +#fi : On HP-UX, large Configure scripts may exercise a bug in /bin/sh if test -f /hp-ux -a -f /bin/ksh; then *** installperl Mon Jan 29 12:16:08 1996 --- installperl Sun Jun 2 09:16:31 1996 *************** *** 88,94 **** &safe_unlink("$installbin/sperl$ver"); if ($d_dosuid) { &cmd("cp suidperl $installbin/sperl$ver"); ! &chmod(04711, "$installbin/sperl$ver"); } exit 0 if $versiononly; --- 88,94 ---- &safe_unlink("$installbin/sperl$ver"); if ($d_dosuid) { &cmd("cp suidperl $installbin/sperl$ver"); ! &chmod(04111, "$installbin/sperl$ver"); } exit 0 if $versiononly; *************** *** 200,209 **** ((readlink "$mainperldir/perl") eq "$binexp/perl")); } if ((! $mainperl_is_instperl) && ! (&yn("Many scripts expect perl to be installed as " . ! "$mainperldir/perl.\n" . ! "Do you wish to have $mainperldir/perl be the same as\n" . ! "$binexp/perl? [y] "))) { unlink("$mainperldir/perl"); eval 'link("$installbin/perl", "$mainperldir/perl")' || --- 200,213 ---- ((readlink "$mainperldir/perl") eq "$binexp/perl")); } if ((! $mainperl_is_instperl) && ! 0) ! # Disable Perl5 from 'taking' over from the system Perl. ! # (nasty hack, but it is only for the FreeBSD build, so WTH. ! # ! # (&yn("Many scripts expect perl to be installed as " . ! # "$mainperldir/perl.\n" . ! # "Do you wish to have $mainperldir/perl be the same as\n" . ! # "$binexp/perl? [y] "))) { unlink("$mainperldir/perl"); eval 'link("$installbin/perl", "$mainperldir/perl")' ||