buildtools/Cmake/my_valgrind.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 my @argv = ("valgrind");
   4 my $count = 0;
   5
   6 while (my $arg = shift) {
   7     print "arg($count)$arg\n";
   8     if($arg eq "--cd"){
   9         $arg = shift;
  10         print "cd $arg\n";
  11         chdir ($arg);
  12         $count++;
  13     } else{
  14         push @argv, $arg;
  15     }
  16     $count++;
  17 }
  18
  19 #print "COMMAND : $bin $option $cd $path\n";
  20 #print "cd $path\n";
  21 #print "valgrind --trace-children=yes --leak-check=full --show-reachable=yes --track-origins=yes --read-var-info=no $bin $option\n";
  22 print "@argv\n\n";
  23 system @argv;