[Rt-commit] r6903 - in rt/branches/3.7-EXPERIMENTAL-RTIR-2.2: .

[ruz at bestpractical.com]

Author: ruz
Date: Fri Feb  2 16:35:26 2007
New Revision: 6903

Modified:
   rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/   (props changed)
   rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/sbin/rt-test-dependencies.in

Log:
 r4506 at cubic-pc (orig r6880):  ruz | 2007-02-02 06:28:09 +0300
 * actually skip sections user didn't request


Modified: rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/sbin/rt-test-dependencies.in
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/sbin/rt-test-dependencies.in	(original)
+++ rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/sbin/rt-test-dependencies.in	Fri Feb  2 16:35:26 2007
@@ -74,9 +74,9 @@
 # Set up defaults
 $args{'with-MASON'} = 1;
 $args{'with-CORE'} = 1;
-$args{'with-DEV'} = @RT_DEVEL_MODE@; 
 $args{'with-CLI'} = 1;
 $args{'with-MAILGATE'} = 1; 
+$args{'with-DEV'} = @RT_DEVEL_MODE@; 
 $args{'with-STANDALONE'} = @RT_STANDALONE@; 
 {
   my $section;
@@ -313,10 +313,10 @@
 check_users();
 
 my %Missing_By_Type = ();
-foreach my $type (keys %args) {
+foreach my $type (sort grep $args{$_}, keys %args) {
     next unless ($type =~ /^with-(.*?)$/);
 
-    my $type = $1;
+    $type = $1;
     section("$type dependencies");
 
     my @missing;