[Rt-commit] r6880 - rt/branches/3.6-RELEASE/sbin

[ruz at bestpractical.com]

Author: ruz
Date: Thu Feb  1 22:28:09 2007
New Revision: 6880

Modified:
   rt/branches/3.6-RELEASE/sbin/rt-test-dependencies.in

Log:
* actually skip sections user didn't request

Modified: rt/branches/3.6-RELEASE/sbin/rt-test-dependencies.in
==============================================================================
--- rt/branches/3.6-RELEASE/sbin/rt-test-dependencies.in	(original)
+++ rt/branches/3.6-RELEASE/sbin/rt-test-dependencies.in	Thu Feb  1 22:28:09 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;
@@ -291,10 +291,10 @@
 check_users();
 
 
-foreach my $type (sort keys %args) {
+foreach my $type (sort grep $args{$_}, keys %args) {
     next unless ($type =~ /^with-(.*?)$/);
 
-    my $type = $1;
+    $type = $1;
     section("$type dependencies");
 
     my @missing;