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

[ruz at bestpractical.com]

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

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:
 r4507 at cubic-pc (orig r6881):  ruz | 2007-02-02 06:43:12 +0300
 * make defaults actually defaults


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:35 2007
@@ -70,14 +70,20 @@
     help();
     exit(0);
 }
-
 # Set up defaults
-$args{'with-MASON'} = 1;
-$args{'with-CORE'} = 1;
-$args{'with-CLI'} = 1;
-$args{'with-MAILGATE'} = 1; 
-$args{'with-DEV'} = @RT_DEVEL_MODE@; 
-$args{'with-STANDALONE'} = @RT_STANDALONE@; 
+my %default = (
+    'with-MASON' => 1,
+    'with-CORE' => 1,
+    'with-CLI' => 1,
+    'with-MAILGATE' => 1, 
+    'with-DEV' => @RT_DEVEL_MODE@, 
+    'with-STANDALONE' => @RT_STANDALONE@,
+);
+$args{$_} = $default{$_} foreach grep !exists $args{$_}, keys %default;
+
+use Data::Dumper;
+print Dumper( \%args );
+
 {
   my $section;
   my %always_show_sections = (