In metaconfig.git, the branch master has been updated <http://perl5.git.perl.org/metaconfig.git/commitdiff/7c34fa4e8142642c6e2978f0307e925898465f58?hp=2fe2122407a06f4cfc0095cac9c1281034079f7c>
- Log ----------------------------------------------------------------- commit 7c34fa4e8142642c6e2978f0307e925898465f58 Author: Aaron Crane <[email protected]> Date: Sat Apr 23 11:30:54 2016 +0100 [UTIL] Perl system does not default to $_ This doesn't actually affect anything, because no units have a ?MAKE rule with any actions other than the "pick" pseudo-command. But it seems worth fixing nonetheless. M bin/mconfig commit eb4b6d67a63f91c3363a5d2b92399b248f8cd160 Author: Aaron Crane <[email protected]> Date: Sat Apr 23 11:30:06 2016 +0100 [UTIL] mconfig: don't rely on directory order M bin/mconfig ----------------------------------------------------------------------- Summary of changes: bin/mconfig | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/mconfig b/bin/mconfig index 97c23f4..3ce6c63 100755 --- a/bin/mconfig +++ b/bin/mconfig @@ -245,7 +245,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$/; @@ -1250,7 +1250,7 @@ sub solve_dependencies { # Ignore conditional symbol request } else { chop; - system; + system $_; } } chdir($WD) || die "Can't chdir to $WD: $!.\n"; -- perl5 metaconfig repository
