Introduce PERL_RUNPERL_DEBUG to alter the behavior of runperl(),

this can be useful to use valgrind for example

p4raw-id: //depot/perl@24856

1 files changed, 4 insertions, 0 deletions

diff --git a/t/test.pl b/t/test.pl
index 7550b490e5..9f4f03bfb8 100644
--- 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';