X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Policy_sh.SH;h=4ae0bb10ddca655c94557e4d38870bd9ea88c7b4;hb=6ee623d521a149edc6574c512fa951a192cd086a;hp=acac3ed8aff9b5a58723b8f08bd7c8846533cb01;hpb=20408e3ccf502b6ce4033d8203710405ec9ef8f6;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Policy_sh.SH b/Policy_sh.SH
index acac3ed..4ae0bb1 100644
--- a/Policy_sh.SH
+++ b/Policy_sh.SH
@@ -46,7 +46,7 @@ esac
 # Installation directives.  Note that each one comes in three flavors.
 # For example, we have privlib, privlibexp, and installprivlib.
 # privlib is for private (to perl) library files.
-# privlibexp is the same, expcept any '~' the user gave to Configure
+# privlibexp is the same, except any '~' the user gave to Configure
 #     is expanded to the user's home directory.  This is figured
 #     out automatically by Configure, so you don't have to include it here.
 # installprivlib is for systems (such as those running AFS) that
@@ -82,7 +82,13 @@ for var in bin scriptdir privlib archlib \
     case "$var" in
     bin)	dflt=$prefix/bin ;;
     # The scriptdir test is more complex, but this is probably usually ok.
-    scriptdir)	dflt=$prefix/script ;;
+    scriptdir)
+	if $test -d $prefix/script; then
+	    dflt=$prefix/script
+	else
+	    dflt=$bin
+	fi
+	;;
     privlib)
 	case "$prefix" in
 	*perl*)	dflt=$prefix/lib ;;
@@ -97,7 +103,7 @@ for var in bin scriptdir privlib archlib \
 	case "$prefix" in
 	*perl*) dflt=`echo $man1dir |
 		    sed -e 's/man1/man3/g' -e 's/man\.1/man\.3/g'` ;;
-	*)	dflt=$privlib/man3 ;;
+	*)	dflt=$privlib/man/man3 ;;
 	esac
 	;;
 
@@ -122,7 +128,6 @@ for var in bin scriptdir privlib archlib \
 	echo "# $var='$dflt'"
     else
 	echo "# Preserving custom $var"
-	eval val=$var
 	echo "$var='$val'"
     fi