--- toast	2004/02/27 00:15:37	1.304
+++ toast	2004/02/29 06:55:50	1.305
@@ -2910,6 +2910,14 @@
   @targets = qw[world opt] if $ocaml;
   @targets = $please if $please;
 
+  if($lk && reconfigure)
+  {
+    my($in) = path("/proc", "config.gz");
+    my($out) = path($dir, ".config");
+    optrun("gzip -cd < " . shellescape($in) . " > " . shellescape($out))
+        if -r($in) && !-e($out)
+  }
+
   return cdrun($dir, @prog) unless @targets;
   cdrun($dir, @prog, $_) foreach @targets;
   return true;
@@ -4674,7 +4682,6 @@
 {
   $| = 1;
   my($result) = cmdline(@_) ? 0 : 1;
-warning("$myname: returning failure ($result)") if $result != 0;
   close(STDOUT) || error("close stdout: $!");
   exit($result);
 }
@@ -6062,7 +6069,6 @@
 
 Wish list:
 
-  - when building linux, default to using /proc/kconfig.gz if present?
   - work around lack of getenv(), mkdir(), etc. in microperl...?
   - "toast upgrade" w/o args should imply --nostoponerror or something
   - "toast arm" should move armed packages to top of stacking order