[Rt-commit] r8337 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: t/shredder

[jesse at bestpractical.com]

Author: jesse
Date: Tue Jul 31 17:43:26 2007
New Revision: 8337

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/   (props changed)
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/shredder/utils.pl

Log:
 r64961 at pinglin:  jesse | 2007-07-31 17:42:19 -0400
 * be sure to use the same perl when running shredder tests


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/shredder/utils.pl
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/shredder/utils.pl	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/shredder/utils.pl	Tue Jul 31 17:43:26 2007
@@ -133,11 +133,12 @@
 use IPC::Open2;
 sub _init_db
 {
+
+
     foreach ( qw(Type Host Port Name User Password) ) {
         $ENV{ "RT_DB_". uc $_ } = RT->Config->Get("Database$_");
     }
-    my $cmd = 'sbin/rt-setup-database'
-        .' --action init';
+    my $cmd =  "$^X sbin/rt-setup-database --action init";
 
     my ($child_out, $child_in);
     my $pid = open2($child_out, $child_in, $cmd);