--- install.orig	Thu Aug 17 00:42:03 2000
+++ install	Thu Jan  4 17:23:05 2001
@@ -1,5 +1,5 @@
 : # Use perl
-eval 'exec perl -S $0 "$@"'
+eval 'exec !!PERL5!! -S $0 "$@"'
   if $running_under_some_shell;
 
 $vid=103;
@@ -17,7 +17,7 @@
     $pathsep = ':';
     $dirsep = '/';
     $sys = 'unix';
-    $prefix = '/usr/local';
+    $prefix = "!!PREFIX!!";
 } elsif (-e 'nul') {
     $pathsep = ';';
     $dirsep = '\\';
@@ -198,9 +198,9 @@
 $ht = "\nTo use the automatic hyphenation feature, hyphenation pattern files\n"
      ."from the TeX distribution are needed.";
 $cophy = 1;
-if($exist{'TeX'}) {
+if($exist{'share'}) {
     $hfile = "";
-    ($texdir = $dir{'TeX'}) =~ s|/bin$||;
+    ($texdir = $dir{'share'}) =~ s|/bin$||;
     SW:for("texmf/tex/generic/hyphen","macros","inputs","lib/macros",
         "lib/inputs","lib/tex/macros","lib/tex/inputs") {
         if(-f "$texdir/$_/ushyph1.tex") {
@@ -272,7 +272,7 @@
 &makedir($html,$def);
 
 $paper = "";
-&getval($format, "A4",
+&getval($format, "!!PAPERSIZE!!",
  "\nEnter the default paper type, possible choices are:\nA0, A1, A2, A3, A4,"
  ." A5, A6, A7, A8, A9, A10,\nB0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10,\n"
  ."letter, legal, arche, archd, archc, archb, archa,\nflsa, flse, halfletter,"
@@ -419,8 +419,7 @@
 
 sub getval {
     $text = $_[1]? "$_[2] [$_[1]]": $_[2];
-    print "$text: ";
-    ($_[0] = <STDIN>) =~ s/^\s+|[\/\s]+$//g;
+    print "$text: $_[1]\n";
     $_[0] = $_[1] if(!$_[0]);
 }
 sub inst {