perl/Porting/test-dist-modules.pl

713 # runperl - Runs a separate perl interpreter.
732     my ($runperl, $args) = @_;
738         $$runperl .= ' ' . $_;
742 sub _create_runperl { # Create the string to qx in runperl().
744     my $runperl = which_perl();
745     if ($runperl =~ m/\s/) {
746         $runperl = qq{"$runperl"};
750         $runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
754             $runperl .= ' -I::lib';
756             $runperl .= ' -MMac::err=unix' if $args{stderr};
759             $runperl .= ' "-I../lib"'; # doublequotes because of VMS
764         die "test.pl:runperl(): 'switches' must be an ARRAYREF " . _where()
766         _quote_args(\$runperl, $args{switches});
769         die "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where()
774         die "test.pl:runperl(): 'progs' must be an ARRAYREF " . _where()
778                 $runperl .= qq ( -e "$prog" );
781                 $runperl .= qq ( -e '$prog' );
785         $runperl .= qq( "$args{progfile}");
788         die "test.pl:runperl(): none of prog, progs, progfile, args, "
800             $runperl = qq{$Perl -e "print qq(} .
801                 $args{stdin} . q{)" | } . $runperl;
814             $runperl .= q{ < teststdin };
817             $runperl = qq{$Perl -e 'print qq(} .
818                 $args{stdin} . q{)' | } . $runperl;
822         _quote_args(\$runperl, $args{args});
824     $runperl .= ' 2>&1'          if  $args{stderr} && !$is_macos;
825     $runperl .= " \xB3 Dev:Null" if !$args{stderr} &&  $is_macos;
827         my $runperldisplay = $runperl;
831     return $runperl;
834 sub runperl {
835     die "test.pl:runperl() does not take a hashref"
837     my $runperl = &_create_runperl;
867         $runperl =~ /(.*)/s;
868         $runperl = $1;
870         $result = `$runperl`;
872         $result = `$runperl`;
878 *run_perl = \&runperl; # Nice alias.
999     my $results = runperl(%$runperl_args);