This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
prep grind-run to accept args from PUTs
authorJim Cromie <jim.cromie@gmail.com>
Sun, 10 Apr 2016 04:45:25 +0000 (22:45 -0600)
committerTony Cook <tony@develop-help.com>
Wed, 15 Jun 2016 00:35:52 +0000 (10:35 +1000)
Porting/bench.pl

index c5dcdf1..3e93a71 100755 (executable)
@@ -704,7 +704,7 @@ sub grind_run {
         );
 
         for my $p (@$perls) {
         );
 
         for my $p (@$perls) {
-            my ($perl, $label) = @$p;
+            my ($perl, $label, @putargs) = @$p;
 
             # Run both the empty loop and the active loop
             # $counts->[0] and $counts->[1] times.
 
             # Run both the empty loop and the active loop
             # $counts->[0] and $counts->[1] times.
@@ -715,7 +715,7 @@ sub grind_run {
                             . "valgrind --tool=cachegrind  --branch-sim=yes "
                             . "--cachegrind-out-file=/dev/null "
                             . "$OPTS{grindargs} "
                             . "valgrind --tool=cachegrind  --branch-sim=yes "
                             . "--cachegrind-out-file=/dev/null "
                             . "$OPTS{grindargs} "
-                            . "$perl $OPTS{perlargs} - $counts->[$j] 2>&1";
+                            . "$perl $OPTS{perlargs} @putargs - $counts->[$j] 2>&1";
                     # for debugging and error messages
                     my $id = "$test/$perl "
                         . ($i ? "active" : "empty") . "/"
                     # for debugging and error messages
                     my $id = "$test/$perl "
                         . ($i ? "active" : "empty") . "/"