--- 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(@_); } ##############################################################################