--- toast	2008/05/02 02:24:10	1.456
+++ toast	2008/05/07 05:21:00	1.457
@@ -627,16 +627,6 @@
   true;
 }
 
-sub mdp(@)
-{
-  foreach(@_)
-  {
-    my($dirname) = dirname($_);
-    $dirname eq "/" || $dirname eq "." || -d($dirname) || &mdp($dirname);
-  }
-  md(@_);
-}
-
 sub optmd(@)
 {
   foreach(@_)
@@ -650,6 +640,16 @@
     }
   }
   true;
+}
+
+sub mdp(@)
+{
+  foreach(@_)
+  {
+    my($dirname) = dirname($_);
+    $dirname eq "/" || $dirname eq "." || -d($dirname) || &mdp($dirname);
+  }
+  optmd(@_);
 }
 
 ##############################################################################