perl/t/test.pl

640 # runperl, run_perl - Runs a separate perl interpreter and returns its output.
659     my ($runperl, $args) = @_;
665        $runperl = $runperl . ' ' . $_;
667     return $runperl;
670 sub _create_runperl { # Create the string to qx in runperl().
672     my $runperl = which_perl();
673     if ($runperl =~ m/\s/) {
674         $runperl = qq{"$runperl"};
678 	$runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
681 	$runperl = $runperl . ' "-I../lib" "-I." '; # doublequotes because of VMS
685 	die "test.pl:runperl(): 'switches' must be an ARRAYREF " . _where()
687 	$runperl = _quote_args($runperl, $args{switches});
690 	die "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where()
695 	die "test.pl:runperl(): 'progs' must be an ARRAYREF " . _where()
710                 $runperl = $runperl . qq ( -e "$prog" );
713                 $runperl = $runperl . qq ( -e '$prog' );
717 	$runperl = $runperl . qq( "$args{progfile}");
720 	die "test.pl:runperl(): none of prog, progs, progfile, args, "
732 	    $runperl = qq{$Perl -e "print qq(} .
733 		$args{stdin} . q{)" | } . $runperl;
736 	    $runperl = qq{$Perl -e 'print qq(} .
737 		$args{stdin} . q{)' | } . $runperl;
760         $runperl = $runperl . ($is_mswin ? ' <nul' : ' </dev/null');
763 	$runperl = _quote_args($runperl, $args{args});
766         $runperl = $runperl . ($is_mswin ? ' 2>nul' : ' 2>/dev/null');
769         $runperl = $runperl . ' 2>&1';
772 	my $runperldisplay = $runperl;
776     return $runperl;
815 sub runperl {
816     die "test.pl:runperl() does not take a hashref"
818     my $runperl = &_create_runperl;
834 	$runperl =~ /(.*)/s;
835 	$runperl = $1;
837 	$result = `$runperl`;
839 	$result = `$runperl`;
846 *run_perl = *run_perl = \&runperl; # shut up "used only once" warning
1091     # Run 'runperl' with the complete perl program contained in '$prog', and
1109     my $trim= delete $runperl_args->{rtrim_result}; # hide from runperl
1118     my $results = runperl(%$runperl_args);
1435 	my $results = runperl( stderr => 1, progfile => $tmpfile,
1869                     my $runperl = which_perl();
1870                     $runperl =~ /(.*)/;
1871                     $runperl = $1;
1872                     if ($runperl =~ m/\s/) {
1873                         $runperl = qq{"$runperl"};
1875                     $watchdog = system({ $runperl } 1, $runperl, '-e', $prog);