diff options
| author | Raphael Manfredi <Raphael_Manfredi@pobox.com> | 2016-04-28 09:32:06 +0200 |
|---|---|---|
| committer | Raphael Manfredi <Raphael_Manfredi@pobox.com> | 2016-04-28 09:32:06 +0200 |
| commit | 168d50c6581d1429e2b2654d62b2520377095735 (patch) | |
| tree | 6c25e8d016c68320bb73136b22975f5b181fe28d | |
| parent | b76210c2ef58dc61e2c4731422f7fc44165b1159 (diff) | |
| parent | 6eb0900c6559e23d6409f4434dffdba33b9ecdd8 (diff) | |
Merge pull request #1 from Tux/master
Sort order and invocation error
| -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"; |