Lines Matching defs:runperl

681 # runperl, run_perl - Runs a separate perl interpreter and returns its output.
700     my ($runperl, $args) = @_;
706        $runperl = $runperl . ' ' . $_;
708     return $runperl;
711 sub _create_runperl { # Create the string to qx in runperl().
713     my $runperl = which_perl();
714     if ($runperl =~ m/\s/) {
715         $runperl = qq{"$runperl"};
719 	$runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
722 	$runperl = $runperl . ' "-I../lib" "-I." '; # doublequotes because of VMS
726 	die "test.pl:runperl(): 'switches' must be an ARRAYREF " . _where()
728 	$runperl = _quote_args($runperl, $args{switches});
731 	die "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where()
736 	die "test.pl:runperl(): 'progs' must be an ARRAYREF " . _where()
751                 $runperl = $runperl . qq ( -e "$prog" );
754                 $runperl = $runperl . qq ( -e '$prog' );
758 	$runperl = $runperl . qq( "$args{progfile}");
761 	die "test.pl:runperl(): none of prog, progs, progfile, args, "
773 	    $runperl = qq{$Perl -e "print qq(} .
774 		$args{stdin} . q{)" | } . $runperl;
777 	    $runperl = qq{$Perl -e 'print qq(} .
778 		$args{stdin} . q{)' | } . $runperl;
801         $runperl = $runperl . ($is_mswin ? ' <nul' : ' </dev/null');
804 	$runperl = _quote_args($runperl, $args{args});
807         $runperl = $runperl . ($is_mswin ? ' 2>nul' : ' 2>/dev/null');
810         $runperl = $runperl . ' 2>&1';
813 	my $runperldisplay = $runperl;
817     return $runperl;
856 sub runperl {
857     die "test.pl:runperl() does not take a hashref"
859     my $runperl = &_create_runperl;
875 	$runperl =~ /(.*)/s;
876 	$runperl = $1;
878 	$result = `$runperl`;
880 	$result = `$runperl`;
887 *run_perl = *run_perl = \&runperl; # shut up "used only once" warning
1132     # Run 'runperl' with the complete perl program contained in '$prog', and
1150     my $trim= delete $runperl_args->{rtrim_result}; # hide from runperl
1159     my $results = runperl(%$runperl_args);
1476 	my $results = runperl( stderr => 1, progfile => $tmpfile,
1927                     my $runperl = which_perl();
1928                     $runperl =~ /(.*)/;
1929                     $runperl = $1;
1930                     if ($runperl =~ m/\s/) {
1931                         $runperl = qq{"$runperl"};
1933                     $watchdog = system({ $runperl } 1, $runperl, '-e', $prog);