Introduce PERL_RUNPERL_DEBUG to alter the behavior of runperl(),

this can be useful to use valgrind for example

p4raw-id: //depot/perl@24856

diff --git a/t/test.pl b/t/test.pl
index 7550b49..9f4f03b 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -390,6 +390,10 @@ sub _quote_args {
 sub _create_runperl { # Create the string to qx in runperl().
     my %args = @_;
     my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
+    #- this allows, for example, to set PERL_RUNPERL_DEBUG=/usr/bin/valgrind
+    if ($ENV{PERL_RUNPERL_DEBUG}) {
+       $runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
+    }
     unless ($args{nolib}) {
        if ($is_macos) {
            $runperl .= ' -I::lib';