/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
H A D | switchx.t | 11 print runperl( switches => ['-x'], progfile => catfile(curdir(), 'run', 'switchx.aux') );
|
H A D | switchPx.t | 20 print runperl( switches => ['-Px'],
|
H A D | switchC.t | 25 $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 D | switches.t | 18 # 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 D | switchd.t | 34 $r = runperl(
|
H A D | runenv.t | 34 sub runperl { subroutine 83 my ($success, $reason) = runperl(@_);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
H A D | concise.t | 13 $out = runperl(switches => ["-MO=Concise"], prog => '$a', stderr => 1); 31 $out = runperl(
|
H A D | o.t | 58 split(/[\r\n]+/, runperl( args => [ @_ ], stderr => 1 ));
|
H A D | lint.t | 15 my $res = runperl(
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/ |
H A D | test.pl | 340 # 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 D | fflush.t | 37 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 D | argv.t | 20 $x = runperl( 27 $x = runperl( 34 $x = runperl(
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | ref.t | 308 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 D | readline.t | 25 = runperl (stdin => '', stderr => 1, 35 = runperl (stdin => ' rules', stderr => 1,
|
H A D | exec.t | 80 $out = runperl(prog => 'print q{1234}');
|
H A D | goto.t | 219 my $r = runperl(prog => 'use goto01; print qq[DONE\n]');
|
H A D | recurse.t | 119 $r = runperl(
|
H A D | closure.t | 617 require './test.pl'; # for runperl() 639 my $got = runperl(progfile => $progfile); 648 my $got = runperl(stderr => 1, prog =>
|
H A D | array.t | 263 my $got = runperl (
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Devel/ |
H A D | SelfStubber.t | 12 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 D | hints.t | 68 my $result = runperl(
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
H A D | Constant.t | 41 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 D | s2p.t | 841 # 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 D | utf8.t | 186 my $result = runperl ( stderr => 1, progfile => $progfile ); 277 ok('' eq runperl(prog => <<'CODE'), "change #17928");
|
H A D | AutoSplit.t | 23 my $runperl = "$^X $lib"; 65 my $com = qq($runperl -e "use AutoSplit; autosplit (qw(@_))");
|