Changeset 29494 for other-projects

Timestamp:

2014-11-28T20:37:45+13:00 (9 years ago)

Author:

sjs49

Message:

Minor changes

File:

• other-projects/nightly-tasks/diffcol/trunk/task.pl (modified) (3 diffs)

other-projects/nightly-tasks/diffcol/trunk/task.pl

@@ -63 +63 @@
 my $test_os = $isWin ? "windows" : ($isMac ? "darwin" : "linux");
 my $model_os = "linux"; # default
+
+my $debugging = 0;
 
 # TASK_HOME should be the toplevel diffcol folder
@@ -194 +196 @@
                 shift @collections; # remove model_os value from array
                 #print STDERR "Model_os specified: $model_os\n";
+            } elsif ($subaction =~ m/\-\-debug/i) {             
+                $debugging = 1;
+                print STDERR "DEBUG MODE\n";
             } else {
                 print STDERR "**** Bad subaction/value: ".$ARGV[$i]."\n"; 
@@ -857 +862 @@
     # help diffcol to know on what os the model cols were generated
     # and what os this test machine is (on which the test cols will be generated)
-    $cmd = "diffcol.pl -testos $test_os -modelos $model_os -output xml -verbosity 10 $collection"; # need to run with ./diffcol.pl if bash script
+    my $debug_state = $debugging ? "-debug" : "";
+    $cmd = "diffcol.pl -testos $test_os -modelos $model_os -output xml -verbosity 10 $debug_state $collection"; # need to run with ./diffcol.pl if bash script
+    
     &run_diff_script($cmd, $xml_fh, $diffcol_dir);