From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 11 May 2003 17:44:28 +0000 (+0000)
Subject: Separate the creation of the command to run by
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4cd2bd1f390724a103e72b993d7f67fb405628ad;p=p5sagit%2Fp5-mst-13.2.git

Separate the creation of the command to run by
runperl() into its own function, _create_runperl().

p4raw-id: //depot/perl@19489
---

diff --git a/t/test.pl b/t/test.pl
index 735d966..8eefe87 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -364,7 +364,7 @@ sub _quote_args {
     }
 }
 
-sub runperl {
+sub _create_runperl { # Create the string to qx in runperl().
     my %args = @_;
     my $runperl = $^X;
     unless ($args{nolib}) {
@@ -433,6 +433,11 @@ sub runperl {
 	$runperldisplay =~ s/\n/\n\#/g;
 	print STDERR "# $runperldisplay\n";
     }
+    return $runperl;
+}
+
+sub runperl {
+    my $runperl = &_create_runperl;
     my $result = `$runperl`;
     $result =~ s/\n\n/\n/ if $is_vms; # XXX pipes sometimes double these
     return $result;