From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 15 Jun 2005 16:37:46 +0000 (+0000)
Subject: Introduce PERL_RUNPERL_DEBUG to alter the behavior of runperl(),
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6cf707aacec423cdf4a418d74906b7902c501262;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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';