Searched refs:runperl (Results 1 - 25 of 27) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dswitchx.t11 print runperl( switches => ['-x'], progfile => catfile(curdir(), 'run', 'switchx.aux') );
H A DswitchPx.t20 print runperl( switches => ['-Px'],
H A DswitchC.t25 $r = runperl( switches => [ '-CO', '-w' ],
35 $r = runperl( switches => [ '-CI', '-w' ],
42 $r = runperl( switches => [ '-CE', '-w' ],
47 $r = runperl( switches => [ '-Co', '-w' ],
54 $r = runperl( switches => [ '-Ci', '-w' ],
59 $r = runperl( switches => [ '-CA', '-w' ],
H A Dswitches.t18 # due to a bug in VMS's piping which makes it impossible for runperl()
21 $TODO = "runperl() unable to emulate echo -n due to pipe bug" if $^O eq 'VMS';
29 $r = runperl(
36 $r = runperl(
43 $r = runperl(
50 $r = runperl(
57 $r = runperl(
64 $r = runperl(
71 $r = runperl(
92 $r = runperl(
[all...]
H A Dswitchd.t34 $r = runperl(
H A Drunenv.t34 sub runperl { subroutine
83 my ($success, $reason) = runperl(@_);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Dconcise.t13 $out = runperl(switches => ["-MO=Concise"], prog => '$a', stderr => 1);
31 $out = runperl(
H A Do.t58 split(/[\r\n]+/, runperl( args => [ @_ ], stderr => 1 ));
H A Dlint.t15 my $res = runperl(
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/
H A Dtest.pl340 # runperl - Runs a separate perl interpreter.
358 my ($runperl, $args) = @_;
364 $$runperl .= ' ' . $_;
368 sub _create_runperl { # Create the string to qx in runperl().
370 my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
373 $runperl .= ' -I::lib';
375 $runperl .= ' -MMac::err=unix' if $args{stderr};
378 $runperl .= ' "-I../lib"'; # doublequotes because of VMS
383 die "test.pl:runperl(): 'switches' must be an ARRAYREF " . _where()
385 _quote_args(\$runperl,
447 sub runperl { subroutine
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dfflush.t37 my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
38 $runperl .= qq{ "-I../lib"};
92 my $command = qq{$runperl "ff-prog" "$f" "l"};
125 my $command = qq{$runperl "ff-prog" "$f" "rl"};
143 system("$runperl -e 0");
H A Dargv.t20 $x = runperl(
27 $x = runperl(
34 $x = runperl(
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dref.t308 my $result = runperl (switches => ['-wl'], stderr => 1,
330 my $result = runperl (switches=>['-l'],
345 runperl(prog => 'sub UNIVERSAL::AUTOLOAD { qr// } a->p' );
349 runperl(prog => 'sub UNIVERSAL::DESTROY { warn } bless \$a, A', stderr => 1);
356 runperl(prog => 'sub f { my $x = shift; *z = $x; } f({}); f();');
363 $result = runperl(
H A Dreadline.t25 = runperl (stdin => '', stderr => 1,
35 = runperl (stdin => ' rules', stderr => 1,
H A Dexec.t80 $out = runperl(prog => 'print q{1234}');
H A Dgoto.t219 my $r = runperl(prog => 'use goto01; print qq[DONE\n]');
H A Drecurse.t119 $r = runperl(
H A Dclosure.t617 require './test.pl'; # for runperl()
639 my $got = runperl(progfile => $progfile);
648 my $got = runperl(stderr => 1, prog =>
H A Darray.t263 my $got = runperl (
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Devel/
H A DSelfStubber.t12 my $runperl = "$^X \"-I../lib\"";
13 $runperl =~ s|../lib|::lib:| if $^O eq 'MacOS';
156 print "# $runperl \"-I$inlib\" $module--$$\n";
157 ($output{$module} = `$runperl "-I$inlib" $module--$$`)
197 print "# $runperl \"-I$lib\" $module--$$\n";
198 ($output{$module} = `$runperl "-I$lib" $module--$$`)
210 system "$runperl -w \"-I$lib\" \"-MData\" -e \"Data::ok\"";
214 system "$runperl -w \"-I$lib\" \"-MEnd\" -e \"End::lime\"";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dhints.t68 my $result = runperl(
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DConstant.t41 my $runperl = "$perl \"-I$lib\"";
107 my @perlout = `$runperl Makefile.PL $core`;
109 print "not ok $realtest # $runperl Makefile.PL failed: $?\n";
191 $regen = `$runperl regentmp`;
195 $regen = `$runperl -x $package.xs`;
198 print "not ok $realtest # $runperl -x $package.xs failed: $?\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/x2p/
H A Ds2p.t841 # on VMS, runperl eats blank lines to work around
847 $psedres = runperl( args => $sedcmd, switches => $switches );
853 my $perlprog = runperl( args => $s2pcmd, switches => $switches );
859 $s2pres = runperl( args => $plcmd, switches => $switches );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dutf8.t186 my $result = runperl ( stderr => 1, progfile => $progfile );
277 ok('' eq runperl(prog => <<'CODE'), "change #17928");
H A DAutoSplit.t23 my $runperl = "$^X $lib";
65 my $com = qq($runperl -e "use AutoSplit; autosplit (qw(@_))");

Completed in 81 milliseconds

12