diff options
-rw-r--r-- | mcon/pl/locate.pl | 2 | ||||
-rw-r--r-- | mcon/pl/order.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/mcon/pl/locate.pl b/mcon/pl/locate.pl index ea7d03f..46c1078 100644 --- a/mcon/pl/locate.pl +++ b/mcon/pl/locate.pl @@ -122,7 +122,7 @@ sub units_path { print "Locating in $MC/$dir...\n" if $main'opt_v; @contents = readdir DIR; # Slurp the whole thing closedir DIR; # And close dir, ready for recursion - foreach (@contents) { + foreach (sort @contents) { next if $_ eq '.' || $_ eq '..'; if (/\.U$/) { # A unit, definitely ($unit_name) = /^(.*)\.U$/; diff --git a/mcon/pl/order.pl b/mcon/pl/order.pl index e6ef35a..1616beb 100644 --- a/mcon/pl/order.pl +++ b/mcon/pl/order.pl @@ -33,7 +33,7 @@ sub solve_dependencies { # Ignore conditional symbol request } else { chop; - system; + system $_; } } chdir($WD) || die "Can't chdir to $WD: $!.\n"; |