From 6cf707aacec423cdf4a418d74906b7902c501262 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 15 Jun 2005 16:37:46 +0000
Subject: [PATCH] Introduce PERL_RUNPERL_DEBUG to alter the behavior of
 runperl(), this can be useful to use valgrind for example

p4raw-id: //depot/perl@24856
---
 t/test.pl | 4 ++++
 1 file changed, 4 insertions(+)

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