diff --git a/utils/develop-status.pl b/utils/develop-status.pl index f67456a9e..9e19ad3c1 100755 --- a/utils/develop-status.pl +++ b/utils/develop-status.pl @@ -75,10 +75,6 @@ my @devs = filesFromDir($develop, [qr((?:[0-9]{4}-[0-9]{2}-[0-9]{2}T)), 1, "File '%fn' does not look like a development dir, skip"], ]); -for my $devStamp(@devs) { - print "+ Development $devStamp found\n"; - devdirInfo($devStamp, "$develop/$devStamp") -} #my $devDir = undef; #opendir($devDir, "$develop") or die "Cannot open develop directory, because: $!"; #while(my $devStamp = readdir($devDir)) { @@ -99,6 +95,11 @@ for my $k(sort { print "Fradrive container outside develop file: ($c->{state}) $c->{name} $c->{id}\n" if $show } +for my $devStamp(@devs) { + print "+ Development $devStamp found\n"; + devdirInfo($devStamp, "$develop/$devStamp") +} + exit 0; sub devdirInfo {