4 my($val_path)="/usr/bin"; #By default
7 while($count!=$#ARGV+1)
9 print "arg($count)$ARGV[$count]\n";
10 if($ARGV[$count] eq "--cd"){
11 print "cd $ARGV[$count+1]\n";
12 chdir ($ARGV[$count+1]);
15 elsif($ARGV[$count] eq "--valgrind") {
16 print "valgrind_path $ARGV[$count+1]\n";
17 $val_path = $ARGV[$count+1];
21 $arg="$arg $ARGV[$count]";
26 #print "COMMAND : $bin $option $cd $path\n";
28 #print "$val_path\/valgrind --trace-children=yes --leak-check=full --show-reachable=yes --track-origins=yes --read-var-info=no $bin $option\n";
29 print "$val_path\/valgrind $arg\n\n";
30 system "$val_path\/valgrind $arg";